日付や時刻を加減算するには、DateAdd関数を使います。
日付の減算
たとえば、昨日の日付を求めるには次のように記述します。Sub GetDateAdd()
MsgBox "現在日付：" & Now & vbCrLf & "減算日付：" & DateAdd("d", -1, Now)
End Sub
第１引数で加算または減算する時間のサイクル間隔を指定します。この例では日数ですので"d"を指定しています。この設定値については下記の表を参照してください。減算したいときは、第２引数でマイナスの数字を指定します。
実行結果
時刻の加算
たとえば、２時間後の時刻を求めるには次のように記述します。Sub GetTimeAdd()
MsgBox "現在時刻：" & Now & vbCrLf & "加算時刻：" & DateAdd("h", 2, Now)
End Sub
実行結果
第１引数（追加時間のサイクル間隔）の設定値
| 設定 | 説明 |
|---|---|
| yyyy | 年 |
| q | 四半期 |
| m | 月 |
| y | 通日 |
| d | 日 |
| w | 平日 |
| ww | 週 |
| h | 時間 |
| n | 分 |
| s | 秒 |
＜参考サイト＞
DateAdd 関数 | Office VBA 言語リファレンス
スポンサーリンク