日付・時刻を表す文字列を日付型に変換する

今回はあらゆる日付・時刻を表す文字列を日付型として扱えるようにする方法についてメモしておきます。

日付を変換する

DateValue関数を使います。
パラメーターに日付の文字列式を指定すると日付型の値を取得できます。

実行プログラム

Sub Sample8_5_1()

    Debug.Print DateValue("2010-08-22")
    Debug.Print DateValue("2010 08 23")
    Debug.Print DateValue("2010 8 24")
    Debug.Print DateValue("25 8 2010")
    Debug.Print DateValue("8/26/2010")
    Debug.Print DateValue("2010年8月27日")
    Debug.Print DateValue("平成22年8月28日")
    Debug.Print DateValue("H22年8月29日")
    Debug.Print DateValue("August 30, 2010")
    Debug.Print DateValue("Aug 31, 2010")

End Sub

Sub Sample8_5_1()

Debug.Print DateValue("2010-08-22")

Debug.Print DateValue("2010 08 23")

Debug.Print DateValue("2010 8 24")

Debug.Print DateValue("25 8 2010")

Debug.Print DateValue("8/26/2010")

Debug.Print DateValue("2010年8月27日")

Debug.Print DateValue("平成22年8月28日")

Debug.Print DateValue("H22年8月29日")

Debug.Print DateValue("August 30, 2010")

Debug.Print DateValue("Aug 31, 2010")

End Sub

実行結果

時刻を変換する

TimeValue関数を使います。
パラメーターに時刻の文字列式を指定すると日付型の値を取得できます。

実行プログラム

Sub Sample8_5_2()

    Debug.Print TimeValue("6:30 AM")
    Debug.Print TimeValue("1:15 PM")
    Debug.Print TimeValue("7:45:15 AM")
    Debug.Print TimeValue("1:30:45 PM")
    Debug.Print TimeValue("PM 2:10")
    Debug.Print TimeValue("PM 2:20:50")
    Debug.Print TimeValue("午前8時00分55秒")
    Debug.Print TimeValue("午後3時40分15秒")
    Debug.Print TimeValue("15時50分20秒")

End Sub

Sub Sample8_5_2()

Debug.Print TimeValue("6:30 AM")

Debug.Print TimeValue("1:15 PM")

Debug.Print TimeValue("7:45:15 AM")

Debug.Print TimeValue("1:30:45 PM")

Debug.Print TimeValue("PM 2:10")

Debug.Print TimeValue("PM 2:20:50")

Debug.Print TimeValue("午前8時00分55秒")

Debug.Print TimeValue("午後3時40分15秒")

Debug.Print TimeValue("15時50分20秒")

End Sub

実行後