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

Messages postés
321
Date d'inscription
dimanche 22 octobre 2000
Statut
Membre
Dernière intervention
14 mai 2005
-
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
-
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

3 réponses

Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
26
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
Messages postés
436
Date d'inscription
dimanche 20 janvier 2002
Statut
Membre
Dernière intervention
2 février 2010
2
Salut -:)

Et FormatDateTime ??

PS : Hello JMO !!
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
26
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