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

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

VBAコード
実行結果
参考①
参考

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」関数で本日日付を取得し指定します。