Date : Récuperation de Tue, 14 Aug 2001 07:25:58 GMT

Signaler
-
cs_kilyn
Messages postés
21
Date d'inscription
vendredi 1 février 2002
Statut
Membre
Dernière intervention
28 février 2002
-
Bonjour,
J'essaie désespérément de récupérer la chaîne "Tue, 14 Aug 2001 07:25:58 GMT" obtenu par Getchunk sur in fichier pour la transformer en date et la stocker dans une variable de format date.
Si quelqu'un peut m'aider ça mévitera de m'arracher les quelques chevex qui me reste ;-)
Merci

1 réponse

Messages postés
21
Date d'inscription
vendredi 1 février 2002
Statut
Membre
Dernière intervention
28 février 2002

essaye la fonction suivante, normalement ca devrait fonctionner :

Function convertDate() as Date

dim strdate as String
dim jour as String
dim moisStr as String
dim moisInt as String
dim annee as String
dim heure as Date
dim fmDate as Date

strDate = "Tue, 14 Aug 2001 07:25:58 GMT"

'MID est une fonction qui extrait une chaîne (strDate) à partir d'une position (ex 6) sur une longueur (ex 2)jour MID(strDate,6,2) 'jour "14"mois MID(strDate,9,3) 'mois "Aug"annee MID(strDate,13,4) 'annee 2001"heure MID(strDate,18,8) heure "07:25:58"

'Tu met le mois
Select Case mois
Case "Jan"
mois = "01"
Case "Feb"
mois = "02"
Case "Mar"
mois = "03"
Case "Apr"
mois = "04"
Case "May"
mois = "05"
Case "Jun"
mois = "06"
Case "Jul"
mois = "07"
Case "Aug"
mois = "08"
Case "Sept"
mois = "09"
Case "Oct"
mois = "10"
Case "Novr"
mois = "11"
Case "Dec"
mois = "12"
Case Else
mois = ""
End Select

'Là tu as ta date
fmDate = jour & "/" & mois & "/" & annee

converDate = fmDate

End Function

J'espère t'avoir aider
A +