Har en en textbox där jag ska skriva in ett datum ex. 2002-05-05.
För att den inmatning jag gjort, ifall jag skriver 20020505 eller 020205, automatiskt ska omvadlas till datumet 2002-05-05 hittar jag inte hur man gör formateringen för textboxen.

Har provat med olika varianter utan att lyckas. Kanske jag inte ska formattera själva textboxen utan det kanske ska göras i General dekalaration eller någon annan stans.

Kan någon hjälpa mig med mitt problem ???

Jag har pillat lite och kommit fram till denna lösning som jag väl egentligen inte vill rekommendera, om någon tänker använda den så MÅSTE den testas ordentligt!!!! Används på egen risk! Dessutom fungerar den med all sannolikhet bara med svenska datumformateringar inställda... Någon som har ett bättre förslag?

<code>
Private Sub Text1_Validate(Cancel As Boolean)
Dim tmpDate As Date
Dim strDate As String

strDate = Text1

If Not IsDate(strDate) Then
Select Case Len(strDate)
Case 6
strDate = Left(strDate, 2) & "-" & Mid(strDate, 3, 2) & "-" & Right(strDate, 2)
Case 8
strDate = Left(strDate, 4) & "-" & Mid(strDate, 5, 2) & "-" & Right(strDate, 2)
End Select
End If
If IsDate(strDate) Then
tmpDate = strDate
Text1 = tmpDate
Else
MsgBox "Inget giltigt datum!", vbExclamation
End If
End Sub
</code>

/Johan