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

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

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

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

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