by Franky (2 Submissions)
Category: String Manipulation
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sun 13th May 2001
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Function to check format time to match with hh:mm:ss format.
Dim Ret As Boolean
Ret = False
If (Mid(ChTime,3,1)=":") And (Mid(ChTime,6,1) = ":") Then
Ret = True
For JJ = 1 To 8
If InStr("0123456789:",Mid(ChTime,JJ,1)) = 0 Then
Ret = False
Exit For
End If
Next JJ
End If
IsValidTime = Ret
End Function