日付・時刻の加算、減算を行う

今回は日付・時刻の加算、減算についてメモしておきます。

日付の加算、減算にはDateAdd関数を使います。
第1パラメーターの設定値により何を加算するかを指定します。

追加期間	設定値
年	yyyy
月	m
日	d・y・w
時	h
分	n
秒	s
四半期	q
週	ww

実行プログラム

Sub Sample8_8_1()
    
    Dim dt As Date

    dt = DateSerial(2010, 8, 24)
    Debug.Print "yyyy：" & DateAdd("yyyy", 3, dt)  ' 3年加算
    Debug.Print "m   ：" & DateAdd("m", 2, dt)     ' 2か月加算
    Debug.Print "d   ：" & DateAdd("d", 7, dt)     ' 7日加算
    Debug.Print "y   ：" & DateAdd("y", 7, dt)     ' 7日加算
    Debug.Print "w   ：" & DateAdd("w", 7, dt)     ' 7日加算
    Debug.Print "q   ：" & DateAdd("q", -1, dt)    ' 1四半期減算
    Debug.Print "ww  ：" & DateAdd("ww", 3, dt)    ' 3週加算

    dt = TimeSerial(13, 15, 30)
    Debug.Print "h   ：" & DateAdd("h", 2, dt)     ' 2時間加算
    Debug.Print "n   ：" & DateAdd("n", 30, dt)    ' 30分加算
    Debug.Print "s   ：" & DateAdd("s", 10, dt)    ' 10秒加算

End Sub

Sub Sample8_8_1()

Dim dt As Date

dt = DateSerial(2010, 8, 24)

Debug.Print "yyyy：" & DateAdd("yyyy", 3, dt) ' 3年加算

Debug.Print "m ：" & DateAdd("m", 2, dt) ' 2か月加算

Debug.Print "d ：" & DateAdd("d", 7, dt) ' 7日加算

Debug.Print "y ：" & DateAdd("y", 7, dt) ' 7日加算

Debug.Print "w ：" & DateAdd("w", 7, dt) ' 7日加算

Debug.Print "q ：" & DateAdd("q", -1, dt) ' 1四半期減算

Debug.Print "ww ：" & DateAdd("ww", 3, dt) ' 3週加算

dt = TimeSerial(13, 15, 30)

Debug.Print "h ：" & DateAdd("h", 2, dt) ' 2時間加算

Debug.Print "n ：" & DateAdd("n", 30, dt) ' 30分加算

Debug.Print "s ：" & DateAdd("s", 10, dt) ' 10秒加算

End Sub

実行結果

日数を足す場合は、”d”、”y”、”w”を使えます。どれも同じ結果を返します。