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

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

PR

VBAコード

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

Option Explicit

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

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

PR

実行結果

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

実行結果
実行結果
PR

参考①

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

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

・○ヶ月前の日付を取得


・○前の日付を取得

PR

参考②

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

●「DateAdd」関数


●「Date」関数

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