指定した年月日時分秒を日付型に変換する

今回は年、月、日、時、分、秒のそれぞれを指定して、日付型とする方法についてメモしておきます。

指定した年、月、日から日付型を取得する

DateSerial関数を使うと、指定した年、月、日を日付型で取得できます。

実行プログラム

Sub Sample8_6_1()

    Dim intY As Integer
    Dim intM As Integer
    Dim intD As Integer

    intY = Cells(1, 2).Value
    intM = Cells(2, 2).Value
    intD = Cells(3, 2).Value

    Debug.Print DateSerial(intY, intM, intD)
    Debug.Print DateSerial(intY, intM, intD) + 1

End Sub

Sub Sample8_6_1()

Dim intY As Integer

Dim intM As Integer

Dim intD As Integer

intY = Cells(1, 2).Value

intM = Cells(2, 2).Value

intD = Cells(3, 2).Value

Debug.Print DateSerial(intY, intM, intD)

Debug.Print DateSerial(intY, intM, intD) + 1

End Sub

実行条件

実行結果

指定した時、分、秒から日付型を取得する

TimeSerial関数を使うと、指定した時、分、秒を日付型で取得できます。

実行プログラム

Sub Sample8_6_2()

    Dim intH As Integer
    Dim intM As Integer
    Dim intS As Integer

    intH = Cells(1, 2).Value
    intM = Cells(2, 2).Value
    intS = Cells(3, 2).Value

    Debug.Print TimeSerial(intH, intM, intS)
    Debug.Print TimeSerial(intH, intM, intS + 1)

End Sub

Sub Sample8_6_2()

Dim intH As Integer

Dim intM As Integer

Dim intS As Integer

intH = Cells(1, 2).Value

intM = Cells(2, 2).Value

intS = Cells(3, 2).Value

Debug.Print TimeSerial(intH, intM, intS)

Debug.Print TimeSerial(intH, intM, intS + 1)

End Sub

実行条件

実行結果