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

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

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 +
-------------------------------
Réponse au message :
-------------------------------

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