時間がジャストかどうかを調べる(30分もジャストで判定するバージョン)

＜分類：判定＞
＜使用例：時間が何時ジャストであるか判定する＞
＜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 = 時間ジャスト調査00分と30分(t)

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

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

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

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

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

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

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

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

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

End Sub

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

End Function

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