cs_marcelin
Messages postés181Date d'inscriptionlundi 3 février 2003StatutMembreDernière intervention22 décembre 2016 7 févr. 2003 à 12:12
crée un module de découpage de "string" et replace le dans l'ordre que tu veux.
comme par exemple celui ci : il est pas adapter à ta demande mais tu modifier ce que tu veux
:
"
Function ManipDate(ByRef datedep) As String
'var
Dim jj As String
Dim mm As String
Dim aa As String
jj = Mid(datedep, 1, 2)
mm = Mid(datedep, 4, 2)
aa = Mid(datedep, 7, 2)
ManipDate = mm & "/" & jj & "/" & aa
End Function
"