【VBA】指定した日付の○ヵ月後の日付を取得する

VBAコード

ここでは例として
　・「2022/08/31」の1ヵ月後である
　・「2022/09/30」を取得
します。

Option Explicit

Sub sample()
    
    Dim targetDate As Date
    Dim OneMonthLaterDate As Date
    
    targetDate = "2022/08/31"
    
    '1ヵ月後の日付を取得
    OneMonthLaterDate = DateAdd("m", 1, targetDate)
    
    MsgBox targetDate & " の1ヵ月後は" & vbCrLf & _
           OneMonthLaterDate & " です。"
    
End Sub

実行結果

指定した日付の○ヵ月後の日付を取得できました。
※「2022/08/31」の1ヵ月後である「2022/09/30」を取得できました。

参考

上記で使用した以下の詳細は、公式サイトをご確認ください。

●「DateAdd」関数