Date : Récuperation de Tue, 14 Aug 2001 07:25:58 GMT
mchurlet
-
14 août 2001 à 10:04
cs_kilyn Messages postés 21 Date d'inscription vendredi 1 février 2002 Statut Membre Dernière intervention 28 février 2002 - 8 févr. 2002 à 12:40
cs_kilyn Messages postés 21 Date d'inscription vendredi 1 février 2002 Statut Membre Dernière intervention 28 février 2002 - 8 févr. 2002 à 12:40
A voir également:
- Date : Récuperation de Tue, 14 Aug 2001 07:25:58 GMT
- Vba date to string - Forum Visual Basic
- Sql comparaison date - Forum SQL
- Sql max date ✓ - Forum SQL
- Insert date sql ✓ - Forum Visual Basic
- Comparaison entre 2 date sur sql ✓ - Forum Delphi / Pascal
1 réponse
cs_kilyn
Messages postés
21
Date d'inscription
vendredi 1 février 2002
Statut
Membre
Dernière intervention
28 février 2002
8 févr. 2002 à 12:40
8 févr. 2002 à 12:40
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 +
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 +
