Convertir une date placée dans une sting (ex: 20030715) en date(ex: 15/07/2

Résolu
cs_Luuna Messages postés 8 Date d'inscription samedi 22 mars 2003 Statut Membre Dernière intervention 15 juillet 2004 - 15 juil. 2003 à 12:19
cs_Luuna Messages postés 8 Date d'inscription samedi 22 mars 2003 Statut Membre Dernière intervention 15 juillet 2004 - 15 juil. 2003 à 13:31
est ce quelqu'un pourrait me dire comment convertir une string du type "20030715" en une date format 15/07/2003 ?

Merci d'avance pour l'aide

@+ Luun@

2 réponses

sylric Messages postés 91 Date d'inscription mardi 21 janvier 2003 Statut Membre Dernière intervention 22 août 2003
15 juil. 2003 à 13:10
si la string est toujours dans le même ordre, tu peux utiliser cette fonction :
Public Function ConvertiDate(Str_Date As String) As Date
    Dim Annee As String
    Dim Mois As String
    Dim Jour As String
    Annee = Left(Str_Date, 4)
    Mois = Mid(Str_Date, 5, 2)
    Jour = Right(Str_Date, 2)
    ConvertiDate = CDate(Jour & "/" & Mois & "/" & Annee)
End Function
3
cs_Luuna Messages postés 8 Date d'inscription samedi 22 mars 2003 Statut Membre Dernière intervention 15 juillet 2004
15 juil. 2003 à 13:31
oki ça fonctionne...
merci de ton aide ;)
0
Rejoignez-nous