excel - 如何检查字符串是否是 Excel VBA 中的有效 HHMMSS 值？

Question

当我将以下内容传递给以下代码时，以下代码似乎不起作用:

“023000”和“HHMMSS”

无论如何，我都会返回“000000”。

Function formatTime(tStr As String, tFormat As String) As String
    If tStr <> "" Then
        formatTime = format(tStr, tFormat)
    Else
        formatTime = "NAT" 'Not A Time
    End If
End Function

Answer 1

基本上，您需要 IsDate 函数的 Time 等效项。但是，由于没有原生 IsTime 函数，您可以自己制作一个:

Sub Is_It_A_Time()
    Debug.Print IsTime("12:34:56") ' Returns True
    Debug.Print IsTime("12:34:60") ' Returns False
    Debug.Print IsTime("13:34:00") ' Returns True
    Debug.Print IsTime("25:01:02") ' Returns False
End Sub

Function IsTime(Expression As Variant) As Boolean
    If IsDate(Expression) Then
        IsTime = (Int(CSng(CDate(Expression))) = 0)
    End If
End Function