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