/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
MaskEbox problemer.
Fra : Henrik


Dato : 03-10-01 19:24

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



 
 
Jens (05-10-2001)
Kommentar
Fra : Jens


Dato : 05-10-01 15:20

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




Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste