【VBA】○ヶ月前の日付を取得する

VBAで
 ・○ヶ月前の日付を取得
できます!
※例えば3ヶ月前の日付を取得できます。

PR

VBAコード

ここでは例として
 ・本日から3ヶ月前の日付を取得
します。

Option Explicit

Sub sample()
    
    Dim threeMonthsAgo As String
    
    '3ヶ月前の日付を取得
    threeMonthsAgo = DateAdd("m", -3, Date)
    
    MsgBox threeMonthsAgo
    
End Sub

「DateAdd」関数により、「○ヶ月前の日付」を取得します(8行目)。
※引数に以下を指定します。
 第1引数:d   ※「」を取得するため「month」を示す「m」を指定します。
 第2引数:数値  ※今回は「
3ヶ月前」を取得するため「-3」を指定します。
 第3引数:日付  ※今回は本日(2022/11/29)を起点とするために「Date」関数で本日日付を取得し指定します。

PR

実行結果

○ヶ月前の日付を取得できました。
※「2022/11/29」の3ヶ月前の日付である「2022/08/29」を取得できました。

実行結果
実行結果
PR

参考①

「○前」や「○前」の日付を取得することもできます

詳細は以下の記事をご確認ください。

・○前の日付を取得


・○前の日付を取得

PR

参考②

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

●「DateAdd」関数


●「Date」関数