Date au format: "Aug 2 08:40:14 2002"

Question

J'ai récupéré une date dans un fichier qui a le format suivant:
"Aug 2 08:40:14 2002"

Mon gros Problème, c'est le "Aug", qui designe évidemment le mois d'août (08)...

Je voudrais comparer cette date avec la Date Courante "Now"...(avec DateDiff)...

Mon problème, c'est que la fonction Format ne reconnait pas "Aug" comme le mois d'aout...

Pourtant, je croyais qu'il fallait utiliser "mmm" pour mettre le mois sur 3 caractères (hors, ça le mets pas sur 3 car et en +, ça le met en Français)...

Je suis dans l'impasse...

Merci à ceux qui pourront m'aider...

Jock

cs_JMO · Answer

Bonjour,

Je regarde ton problème cet après-midi.
Il y a plusieurs solutions.
exemple ci-dessous avec le jour en lettres
jour   = DatePart("w", Date)
jour1 = Array("Samedi","Dimanche","Lundi","Mardi","Mercredi","Jeudi","Vendredi")
jour2 = jour1(jour)

'''
''' Delete des fichiers en fonction du jour
'''
Set fso = CreateObject("Scripting.FileSystemObject")
Set dossier = fso.GetFolder(wSrce)
Set fichiers = Dossier.Files
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "C:\WINDOWS\EXPLORER.EXE /n,/e," & wSrce
WScript.Sleep(1000)

For Each fichier in fichiers
     Select Case jour2
     Case "Lundi"
     IF Left(fichier.name,5) = "Vendr" Then
     strList = strList & vbcrlf & fichier     
     fso.DeleteFile(fichier) 
     End If
     Case "Mardi"
     IF Left(fichier.name,5) = "Lundi" Then
     strList = strList & vbcrlf & fichier     
     fso.DeleteFile(fichier) 
     End If
     Case "Mercredi"
     IF Left(fichier.name,5) = "Mardi" Then
     strList = strList & vbcrlf & fichier     
     fso.DeleteFile(fichier) 
     End If
     Case "Jeudi"
     IF Left(fichier.name,5) = "Mercr" Then
     strList = strList & vbcrlf & fichier     
     fso.DeleteFile(fichier) 
     End If
     Case "Vendredi"
     IF Left(fichier.name,5) = "Jeudi" Then
     strList = strList & vbcrlf & fichier     
     fso.DeleteFile(fichier) 
     End If
     End Select
Next

A +.
      jean-marc

VicoLaChips2 · Answer

Salut -:) 

Et FormatDateTime ??

PS : Hello JMO !!

cs_JMO · Answer

Code assez simple, je transforme la date machine pour avoir la même présentation que la date de ton fichier. 

Dim eDate, nMois1, nMois2,nMois, nDate
eDate = "Aug 2 08:40:14 2002"
nMois1 = DatePart("m",Date)
nMois2 = Array("Dec","Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov")
nMois  = nMois2(nMois1)
nDate = nMois & " " & DatePart("d",Date) & Right(Now,9) & " " & DatePart("yyyy",Date)
MsgBOX "eDate=" & eDate & "   nDate=" & nDate

A +.

J'en profite pour faire un coucou à mon "mentor du VBS" => VicoLaC....!!!!!!!!     jean-marc

Date au format: "Aug 2 08:40:14 2002"

3 réponses

Discussions similaires