時間がジャストかどうかを調べる

<分類:判定>
<使用例:時間が何時ジャストであるか判定する>
<00:00:00 → 判定結果:ジャスト>
<00:00:01 → 判定結果:ジャストではない>
<23:00:00 → 判定結果:ジャスト>
<23:30:00 → 判定結果:ジャストではない>
<23:00:30 → 判定結果:ジャストではない>
<プログラム例>

Sub 使用例()
    Dim t As String
    Dim s As String
    
    t = "00:00:00"
    s = 時間ジャスト調査(t)

    If s = "*" Then
       MsgBox (t & "はジャストです")
    Else
       MsgBox (t & "はジャストではありません")
    End If

    t = "00:00:01"
    s = 時間ジャスト調査(t)

    If s = "*" Then
       MsgBox (t & "はジャストです")
    Else
       MsgBox (t & "はジャストではありません")
    End If

    t = "23:00:00"
    s = 時間ジャスト調査(t)

    If s = "*" Then
       MsgBox (t & "はジャストです")
    Else
       MsgBox (t & "はジャストではありません")
    End If

    t = "23:30:00"
    s = 時間ジャスト調査(t)

    If s = "*" Then
       MsgBox (t & "はジャストです")
    Else
       MsgBox (t & "はジャストではありません")
    End If

    t = "23:00:30"
    s = 時間ジャスト調査(t)

    If s = "*" Then
       MsgBox (t & "はジャストです")
    Else
       MsgBox (t & "はジャストではありません")
    End If

End Sub

Function 時間ジャスト調査(p1 As String)
    Dim s As String
    
    s = 共通_cov_time_t9(p1)
    Select Case Mid(s, 4, 4)
           Case "0000"
               時間ジャスト調査 = "*"
           Case else
               時間ジャスト調査 = ""
    End Select

End Function

Function 共通_cov_time_t9(p1 As String) As String
    共通_cov_time_t9 = "T" & CStr((Format(p1, "hhnnss")))
End Function