時刻文字列をDate型に変換する（TimeValue）

TimeValue関数は時刻文字列からDate型の時刻の値を取得することが出来ます。

0:00:00から23:59:59の範囲内は変換できますが、範囲外の場合は変換できずに実行時エラー13「型が一致しません。」が発生します。

似た関数で時、分、秒の数値からDate型の時刻の値を取得するTimeSerial関数があります。

Function TimeValue(Time As String) As Date

1	Function TimeValue(Time As String) As Date

Time As String	時刻文字列を指定します。
Date（戻り値）	引数をDate型に変換した結果を返します。

Sub TimeValueTest()
    Dim v
    v = TimeValue("23:01:01")
    Debug.Print v
    
    v = TimeValue("0:1:2")
    Debug.Print v
End Sub

Sub TimeValueTest()

Dim v

v = TimeValue("23:01:01")

Debug.Print v

v = TimeValue("0:1:2")

Debug.Print v

End Sub

23:01:01 
0:01:02

1 2	23:01:01 0:01:02