---

Hejsa
Jeg bruger i et program en MaskEdbox, men det køre ikke rigtig for mig.
Boksen er sat op sådanne :

Mask : ##-##-##
Format : dd-mm-yy

Kode :
Private Sub Command1_Click()
If Not IsDate(MaskEdBox1.Text) Then
MsgBox "Dato er ikke gyldig"
End If
End Sub

Hvis jeg skriver : 32-06-01 i boksen får jeg ingen fejl.
Er der en der har en løsning ?


Mvh. Henrik

---

Her you go !

Private Sub Command1_Click()

Dim mydato As Date
Dim checkdato As String

mydato = MaskEdBox1.Text
checkdato = mydato

If Left(checkdato, 5) = Left(MaskEdBox1.Text, 5) Then
MsgBox "Alt ok", , "Dato"
Else
MsgBox "Fejl i datoen !", vbCritical, "Dato"
End If

End Sub