Thema: Datum- und Zeiteingabe prüfen

Home

Abbildung - Datum- und Zeiteingabe prüfen

Prozedur: TextBox1_KeyPress
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Eingabe ungültiger Zeichen verhindern
Ablaufbeschreibung:
- Wenn es sich bei dem eingegebenen Zeichen nicht um eine Zahl, einen Punkt, einen Doppelpunkt oder ein Leerzeichen handelt...
- Eingabe zurücksetzen

Code:


Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
   If Chr(KeyAscii) Like "[0-9.: ]" = False Then
      KeyAscii = 0
   End If
End Sub

Prozedur: TextBox1_Change
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Auf Datum prüfen und Werte melden
Ablaufbeschreibung:
- Wenn die Textlänge 16 ist...
- Wenn es sich nicht um eine Gültige Datums/Zeiteingabe handelt...
- Negativmeldung
- Sonst...
- Meldung von Datum und Zeit

Code:


Private Sub TextBox1_Change()
   If Len(TextBox1.Text) = 16 Then
      If IsDate(TextBox1.Text) = False Then
         MsgBox "Keine gültige Eingabe!"
      Else
         MsgBox "Datum: " & Left(TextBox1.Text, 10) & vbLf & "Zeit: " & _
            Right(TextBox1.Text, 5)
      End If
   End If
End Sub