![](https://excel-vba.work/wp-content/themes/cocoon-master/images/b-woman.png)
VBAで
・指定した日付の
・○ヵ月後の日付を取得
できます!
![](https://excel-vba.work/wp-content/themes/cocoon-master/images/b-woman.png)
例えば
・「2022/08/31」の1ヵ月後である
・「2022/09/30」を取得
できます!
※「2022/09/31」といったありえない日付にはなりません。
![](https://excel-vba.work/wp-content/uploads/2022/10/vba_edate_001.png)
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」を取得できました。
![実行結果](https://excel-vba.work/wp-content/uploads/2022/10/vba_edate_001.png)
参考
上記で使用した以下の詳細は、公式サイトをご確認ください。
●「DateAdd」関数