Ronni
Om strengen ligger i text1:
Private Sub Command1_Click()
Dim dendag As Date
dendag = DateValue(Right(Text1.Text, 2) & _
"." & Mid(Text1.Text, 3, 2) & "." & _
Left(Text1.Text, 2))
MsgBox Format(dendag, "dd-mm-yyyy")
End Sub
HTH. Beste hilsen Harald
Ronni Hansen <ronni@city.dk> skrev i
news:vV__6.103$e36.5337@news.get2net.dk...
> Hvordan får jeg følgende streng formatteret til datoformat ?
>
> 010121 (YY-MM-DD) til 01-01-2001 (DD-MM-YYYY)
>
> Hilsen
>
> Ronni
>
>
|