Discussion :

[rockk]

Bonjour,

j'importe un fichier texte contenant des dates sans séparateur, par exemple 26032008, je voudrais les convertir au format date avec séparateurs (26/03/2008). comment faire?

[Jean-Philippe André]

bonjour rockk,
bienvenue sur DVP
si tu récupères du texte, je ne crois pas que la fonction Format() puisse être appliquée après un cast CDate.
Je propose ce bout de code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Function TransfoTxtToDate(strInput as String) as Date
dim tempoDate as Date
if not (len(strinput)=8) Then
    MsgBox "erreur sur la date"
    TransfoTxtToDate = CDate("01/01/1900")
Else
 TransfoTxtToDate = CDate(Left(strinput,2) & "/" & Mid(strinput,3,2) & "/" & Right(strinput,4))
End If
End Function

[rockk]

Merci pour la réponse, mais je débute avec access et je ne sais pas comment utiliser ce code.

[Jean-Philippe André]

bonjour,
tu peux utiliser ce code de la façon suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim MaDate as Date
MaDate = TransfoTxtToDate("26032008")
MsgBox Cstr(MaDate)