[VBA][Excel]DateAdd関数 日付や時刻の加算減算

※全てのExcelで動作する保証はありません。また、内容に関し管理人は全ての責任を負いかねます

サンプル ※説明に必要な部分しか記述していません


DateAdd(interval, number, date)

DateAdd関数はintervalに指定する文字列によって間隔が異なり、”d”なら日数、”h”なら時間の加算減算をします。
number は加算・減算する値、 dateは日付を指定します。

戻り値はバリアント型 (内部処理形式 String )です。


interval の設定値

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

下記を実行すると

Private Sub CommandButton1_Click()

Const c_base_time = "2016/4/11 12:00"

Sheet1.Range("A1").Value = DateAdd("d", 5, c_base_time)
Sheet1.Range("A2").Value = DateAdd("d", -2, c_base_time)
Sheet1.Range("A3").Value = DateAdd("ww", 2, c_base_time)
Sheet1.Range("A4").Value = DateAdd("m", 1, c_base_time)
Sheet1.Range("A5").Value = DateAdd("yyyy", 1, c_base_time)
Sheet1.Range("A6").Value = DateAdd("n", 45, c_base_time)
Sheet1.Range("A7").Value = DateAdd("n", -18, c_base_time)
Sheet1.Range("A8").Value = DateAdd("h", 3, c_base_time)

End Sub

このようになります。
vba-excel-dateadd