VBAで日付計算を行う－DateAdd関数

対象：Excel2003, Excel2007, Excel2010, Excel2013

「エクセルvba 日付の計算」
「excel vba 日付足し算」
「vba 変数に保存した日付を翌月にしたい」
といった検索で、このサイト・インストラクターのネタ帳へのアクセスがあります。

VBA（Visual Basic for Applications）で、翌月の日付を求めたり前月の日付を求めたりといった、日付の計算を行う方法を探している方による検索です。

［スポンサードリンク］

日付計算を行うDateAdd関数を使ったサンプルマクロ

VBAで日付計算を行うには、DateAdd関数を使うのが便利です。

Sub DateAdd関数を使った日付計算のサンプル()

　Dim date_org As Date

　With ActiveCell

　　date_org = .Value

　　.Offset(1, 0).Value = DateAdd("m", 1, date_org)
　　.Offset(1, 1).Value = "翌月"

　　.Offset(2, 0).Value = DateAdd("m", -2, date_org)
　　.Offset(2, 1).Value = "2か月前"

　　.Offset(3, 0).Value = DateAdd("d", 45, date_org)
　　.Offset(3, 1).Value = "45日後"

　End With

End Sub

日付の入力されているセルを選択しておいてから上記のマクロを実行すると、そのセルの
　1つ下のセルに翌月の日付
　2つ下のセルに2か月前の日付
　3つ下のセルに45日後の日付
が入力されます。

DateAdd関数は、指定された時間の間隔を、足し算した日付を返す関数です。

第1引数には、足し算する時間の間隔を表す文字列を指定します。
上記のマクロで使っている、「m」が月、「d」が日です。
他にも「q」「w」「ww」「h」「n」「s」などが指定できます。
それぞれが何を意味するのかは、是非ヘルプでご確認ください。

第2引数には、足し算する数値を指定します。
未来の日付なら正の値
過去の日付なら負の値
を指定してください。

第3引数には基準となる日付を指定します。

是非基準日を「2014年1月31日」などにして、翌月として、いつが返されるかなどをご確認ください。

［スポンサードリンク］

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

上記の『Excel VBAユーザーのためのPythonプログラミング』の、元になったキンドル本です↓↓

『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓

Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓

図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本です↓↓

Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

「VBA関数」の記事一覧