คิดว่าไม่มีนะครับ (ไม่แน่ใจนะ รอผู้รู้มาเฉลยนะครับ)
แต่ถ้าเขียนเป็น function ก็ประมาณนี้ ครับ Code (VB.NET)
Public Function IsTime(ByVal StrTemp As String) As Boolean
Dim StrShortTime As String
IsTime = False
StrTemp = Trim(StrTemp)
If StrTemp <> vbNullString Then
If IsDate(StrTemp) Then
StrShortTime = Format(StrTemp, vbShortTime)
If StrShortTime = "00:00" Then
If (StrTemp = "0:00") Or (StrTemp = "00:00") Then
IsTime = True
End If
Else
IsTime = True
End If
End If
End If
End Function