Datum in Textfeld
05.07.2003 12:29:34
Heiner
in ein Textfeld soll ein Datum im Format "dd.mm.yy" eingegeben werden.
Wenn die Eingabe nicht im Format "dd.mm.yy" erfolgt, soll eine Fehlermeldung
ausgegeben werden, der Cursor in das Feld zurück gesetzt werden und im
Textfeld soll möglichst das Format TT.MM.JJ angezeigt werden.
Irgendwie klappt das nicht mit meinem Code.
Code (1):
Es wird keine Datumseingabe ("tt.mm.yy" und "tt.mm.yyyy") akzeptiert :-(
Private Sub GebDatum_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsDate(GebDatum.Value = "dd.mm.yy") Then
Cancel = True
MsgBox "Datumsformat falsch!", vbOKOnly + vbCritical, "Fehlerhaftes Datum"
End If
With ANMELDE_DIALOG.GebDatum
.SelStart = 0
.SelLength = Len(.Value)
End With
End Sub
Code (2):
Es werden Eingaben im Format "dd.mm" und "dd.mm.yy" akzeptiert :-(
Private Sub GebDatum_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsDate(GebDatum.Value) Then
Cancel = True
MsgBox "Datumsformat falsch!", vbOKOnly + vbCritical, "Fehlerhaftes Datum"
End If
With ANMELDE_DIALOG.GebDatum
.SelStart = 0
.SelLength = Len(.Value)
End With
End Sub
Wer kann mir mit Tips weiterhelfen oder den Code entsprechend "umstricken"???
Gruß
Heiner
Anzeige