Dolphin Boy
Messages postés630Date d'inscriptionvendredi 5 mai 2006StatutMembreDernière intervention17 février 2007 13 juil. 2006 à 21:17
Salut
C'est vrai ça, comment tu reçois cette date ?
Et puis, le format avec des points comme séparateur de date ce n'est pas très courant (même les anglosaxons utilisent le slash -/-).
Et quelle est le séparateur de date dans tes paramètres régionaux ?
Bon, admettons qu'on se fout de tout ça et que tu aies au final une variable texte (d) contenant "15.06.06" que tu veux convertir en "15.06.2006" et qu'on ne connais pas tes paramètres régionaux. Dans ce cas rien de plus simple : manipulation de texte qui fonctionne sous toutes les versions de vb :
Dim d As String
Dim p As Integer
Dim i As Integer
d = "15.06.06"
For i = 1 To Len(d)
If Mid(d, i, 1) = "." Then
p = i
End If
Next
d = Mid(d, 1, p) & "20" & Mid(d, p + 1)
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 13 juil. 2006 à 21:45
salut
Option Explicit
'
Private Sub Form_Load()
Const sDateMiraculeuse As String = "15.06.06"
MsgBox Format$( Replace (sDateMiraculeuse, ".", "/"), "DD.MM.YYYY")
Unload Me
End Sub