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

VBAコード

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

Option Explicit

Sub sample()
    
    Dim SevenDaysAgo As String
    
    '7日前の日付を取得
    SevenDaysAgo = DateAdd("d", -7, Date)
    
    MsgBox SevenDaysAgo
    
End Sub

実行結果

○日前の日付を取得できました。
※「2022/11/29」の7日前の日付である「2022/11/22」を取得できました。

参考①

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

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

・○ヶ月前の日付を取得

・○年前の日付を取得

参考②

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

●「DateAdd」関数

●「Date」関数