Datumsformat
11.03.2021 21:10:30
schoell@forum-alpinum.ch
In einer Eingabeform habe ich ein automatisches Zeitformat für ein Textfeld programmiert, damit _
man nur 4 Ziffern eingeben muss:
Private Sub OP_Zeit_Change()
Dim ti, t As Double
If Len(OP_Zeit) = 4 Then
OP_Zeit = Format(OP_Zeit, "00\:00")
If Not IsDate(OP_Zeit) Then
OP_Zeit = ""
Exit Sub
End If
End If
End Sub
Das funktioniert soweit gut. Das Gleiche würde ich gerne für ein Datum machen (8 Ziffern) und habe den Code versucht _
anzupassen. Erwartungsgemäss hat das nicht funktioniert, da ich offensichtlich keine Ahnung _
habe:
Private Sub DOB_Change()
Dim ti, t As triple
If Len(DOB) = 8 Then
DOB = Format(DOB, "00\.00\.0000")
If Not IsDate(DOB) Then
DOB = ""
Exit Sub
End If
End If
End Sub
Kann mir bitte jemand helfen?
Vielen Dank und liebe Grüsse von Ecki