Excel VBA 日付の増減を行うDateadd関数のポイントとサンプルコード

 

Excel VBAの Dateadd関数は、日付に対する操作を行うに使います。使い方や注意点など、サンプルコードをもとに具体的に解説します。

 

📌 「これ、自動化できたらラクなのに…」と思ったこと、ありませんか?
実はその作業、Excelマクロで簡単に自動化できるかもしれません。
「でもマクロって難しそう…」という方のために、完全初心者向けの入門記事をご用意しました!

👇実務で“そのまま使える”テンプレ付きで、コピペするだけ
初心者向けエクセルマクロの作り方を解説|コピペOK実務テンプレ付き

 

Excel VBA 日付の増減を行うDateadd関数の利用

以下のようなシーンで利用されます。

・日付の増減を行う場合。

・特定の日数、月数、年数を加算または減算して新しい日付を得る場合。

 

ポイント

NewDate = DateAdd(interval, number, date)

intervalは、加算または減算する単位を指定します。例えば、日を表す場合は "d"、月を表す場合は "m"、年を表す場合は "yyyy" などがあります。

numberは、加算または減算する数値を指定します。正の値なら加算、負の値なら減算が行われます。

dateは、基準となる日付を指定します。

・日付の加算や減算において、月や年を考慮する場合、暦の違いによる注意が必要です。

 

Excel VBA 日付の増減を行うDateadd関数サンプルコード

👇実務で“そのまま使える”テンプレ付きで、コピペするだけ
初心者向けエクセルマクロの作り方を解説|コピペOK実務テンプレ付き

Sub ExampleDateAdd()
    ' 現在の日付を取得
    Dim currentDate As Date
    currentDate = Date
    
    ' 10日後の日付を計算
    Dim futureDate As Date
    futureDate = DateAdd("d", 10, currentDate)
    
    ' 1ヶ月前の日付を計算
    Dim pastDate As Date
    pastDate = DateAdd("m", -1, currentDate)
    
    ' 結果を表示
    MsgBox "Current Date: " & currentDate & vbCrLf & _
           "Future Date (10 days later): " & futureDate & vbCrLf & _
           "Past Date (1 month ago): " & pastDate
End Sub

サンプルコードは、DateAdd を使用して現在の日付から10日後と1ヶ月前の日付を計算しています。