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

VBAで
 ・指定した日付の
 ・○ヵ月後の日付を取得
できます!

例えば
 ・「2022/08/31」の1ヵ月後である
 ・「2022/09/30」を取得
できます!
※「2022/09/31」といったありえない日付にはなりません。

PR

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

「DateAdd」関数により、「○ヶ月後の日付」を取得します(11行目)。
※引数に以下を指定します。
 第1引数:d   ※「」を取得するため「m」を指定します。
 第2引数:数値  ※今回は「1ヶ月後」を取得するため「1」を指定します。
 第3引数:日付  ※今回は「2022/08/31」指定します。

PR

実行結果

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

実行結果
実行結果
PR

参考

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

●「DateAdd」関数

タイトルとURLをコピーしました