vb Date Abfrage
22.09.2017 14:10:57
Tobi
ich versuche eine TextBox abfrage zu erstellen in der der User das Datum in dem Format 00.00.0000 oder 00/00/0000 angeben muss. Wenn es richtig eingegeben wird bekomm ich auch positives Feedback. Falls das Datum jedoch falsch ist, erhalte ich nicht den Wert der MsgBox sondern der Debugger öffnet sich stattdessen. Wie kann ich das verhindern so das der User in beiden Fällen Msgboxen sieht?
In der Funktion soll außerdem der Messzeitraum mit DateDiff bestimmt werden. Das funktioniert aber schon.
Besten Dank und VG Tobi
Sub DatumsCheck()
'Der Messzeitraum wird durch die Differenz von Beginn und Ende erzeugt
Dim DatumBeginn, DatumEnde, ZeitraumMonate
DatumBeginn = CDate(Windmessung.DatumMessbeginn)
DatumEnde = CDate(Windmessung.DatumMessende)
ZeitraumMonate = DateDiff("m", DatumBeginn, DatumEnde)
'Datum Check
If VarType(DatumMessbeginn) = vbDate And VarType(DatumMessende) = vbDate Then
MsgBox ("Richtiger Datentyp")
Else
MsgBox ("falscher Datentyp")
End If
End Sub