加算・減算した日付・時刻を取得する【DateAdd関数】【ExcelVBA】

構文
DateAdd関数のサンプルコード
注意点
関連記事

構文

DateAdd（interval, number, date）

interval・・・・・・・時間単位を表す文字列※下記参照
number・・・・・・・加算/減算したい数
date・・・・・・・・・加算/減算したい元の日付

引数intervalに設定する値
設定値	内容
yyyy	年
q	四半期
m	月
y	年間通算日
d	日
w	週日
ww	週
h	時
n	分
s	秒

DateAdd関数のサンプルコード

Public Sub sample()
    '■標準の使い方(日付)
    Debug.Print DateAdd("d", 30, "2021/01/01")  '2021/01/31 '30日後
    Debug.Print DateAdd("q", 2, "2021/01/01")   '2021/07/31 '2クォーター後

    '■標準の使い方(時刻)
    Debug.Print DateAdd("h", 3, "2021/01/01")    '2021/01/01 3:00:00    '3時間後
    Debug.Print DateAdd("n", 10, "2021/01/01")   '2021/01/01 0:10:00    '10分後
    Debug.Print DateAdd("s", 20, "2021/01/01")   '2021/01/01 0:00:20    '20秒後

    Debug.Print DateAdd("h", 3, "10:00:00")      '13:00:00    '3時間後

    '■過去を取得（マイナス数値で指定)
    Debug.Print DateAdd("d", -30, "2021/01/31")  '2021/01/01 '30日前
    Debug.Print DateAdd("h", -3, "10:00:00")     '7:00:00    '3時間前

End Sub