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

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

PR

VBAコード

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

Option Explicit

Sub sample()
    
    Dim fiveYearsAgo As String
    
    '5年前の日付を取得
    fiveYearsAgo = DateAdd("yyyy", -5, Date)
    
    MsgBox fiveYearsAgo
    
End Sub

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

PR

実行結果

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

実行結果
実行結果
PR

参考①

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

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

・○前の日付を取得


・○ヶ月前の日付を取得

PR

参考

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

●「DateAdd」関数


●「Date」関数

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