Hit-Parade .VB Research Center . Compteur
Accueil ~  Code ~  Programmes ~  Api ~  Forum ~  Cours ~  Livres ~  Quiz ~  Annuaire
~ 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 ~
 Rechercher un site :
  

~ Partenaires ~

Fonction : FileNameDate
Permet de travailler avec des noms de fichiers devant varier avec la date et l'heure courante. Le nom du fichier contient donc une zone paramétrable.
(Consulté 2383 fois.)

Public Function FileNameDate(stFileName As String) As String
' 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

Visual Basic Research Center - (c) 2000/2002 -  Webmaster : docvb (chez) free (point) fr