~ Edito ~
12/03/2006 @ 13:39
Depuis la dernière mise à jour (qui remonte à... oulala plusieurs mois), un petit ménage de printemps s'impose. Ca tombe bien, c'est presque la période. Au menu, et progressivement sur les jours à venir, rafraîchissement de plusieurs fonctions et procédures, nouvelles APIs et nouveaux programmes. ~ Rechercher ~
~ Annuaire VB ~
~ Partenaires ~
|
Fonction : FileNameDate ' Transforme un nom de fichier contenant une zone variable avec format de date. ' ex : ' Ajout du mois et de l'année sur 4 chiffres : ' FileNameDate("trace-[mm-yyyy].log") retourne "trace-03-2006.log" ' Ajout du numéro de la semaine et de l'année sur 2 chiffres : ' FileNameDate("trace-[ww-yy].log") retourne "trace-10-06.log" ' Ajout de la date et l'heure : ' FileNameDate("debug-[yyyymmdd-hhnnss].log") retourne "debug-20060311-150034.txt" Dim stTmp As String Dim lgDeb As Long, lgFin As Long, stDate As String stTmp = stFileName lgDeb = InStr(1, stTmp, "[") If (lgDeb > 0) Then lgFin = InStr(lgDeb, stTmp, "]") If (lgFin > 0) Then stDate = Mid$(stTmp, lgDeb + 1, lgFin - lgDeb - 1) If (stDate <> vbNullString) Then stTmp = Replace(stTmp, "[" & stDate & "]", Format$(Now, stDate)) End If End If End If FileNameDate = stTmp End Function |