Zeiteingabe prüfen

04/02/2010 - 11:12 von Gunthard Pupke | Report spam
Wie kann ich prüfen, ob die Eingabe einer Zeit in ein Textfeld korrekt ist?
Richtiges Format: 23:22 oder 04:45
Danke für jeden Hinweis.
Gunthard
 

Lesen sie die antworten

#1 Harald M. Genauck
04/02/2010 - 12:02 | Warnen spam
Hallo Gunthard,

Wie kann ich prüfen, ob die Eingabe einer Zeit in ein Textfeld
korrekt ist?
Richtiges Format: 23:22 oder 04:45



Function IsValidTime(ByRef text As String) As Boolean
Dim nIsInvalid As Boolean
nIsInvalid = True
Dim nText As String
nText = Trim$(text)
Select Case False
Case Len(nText) = 5
Case Mid$(nText, 3, 1) = ":"
Case Else
On Error GoTo IsValidTimeError
Select Case CInt(Left$(nText, 2))
Case 0 To 23
Select Case CInt(Right$(nText, 2))
Case 0 To 60
nIsInvalid = False
End Select
End Select
End Select
IsValidTime = Not nIsInvalid
IsValidTimeError:
End Function


Viele Grüße

Harald M. Genauck

"VISUAL STUDIO one" - http://www.visualstudio1.de (Chefredakteur)
"ABOUT Visual Basic" - http://www.aboutvb.de (Hrsg. + Redaktion)

Ähnliche fragen