◯年前/◯か月前/◯日前の日付を取得したい【DateAdd関数】【ExcelVBA】

◯年前/◯か月前/◯日前の日付を取得したい

未来ではなく過去の日付を取得したい場合、DateAdd関数で簡単に求められます。

Public Sub sample()
    Dim sDate As Date
    sDate = "2024/04/01"
    
    '■◯年前の日付を取得(1年前/5年前)
    Debug.Print DateAdd("yyyy", -1, sDate)  '2023/04/01
    Debug.Print DateAdd("yyyy", -5, sDate)  '2019/04/01
    
    '■◯ヶ月前の日付を取得(3か月前/2か月前/1か月前)
    Debug.Print DateAdd("m", -3, sDate) '2024/01/01
    Debug.Print DateAdd("m", -2, sDate) '2024/02/01
    Debug.Print DateAdd("m", -1, sDate) '2024/03/01
    
    '■◯日前の日付を取得(7日前/14日前)
    Debug.Print DateAdd("d", -7, sDate)     '2024/03/25
    Debug.Print DateAdd("d", -14, sDate)    '2024/03/18
    
End Sub

まとめ

未来の日付を取得したい(翌月末や翌20日など)場合はこちら。

関連記事

• 日付・時間に関する機能のまとめ(逆引き目次)
• 加算・減算した日付・時刻を取得する【DateAdd関数】【ExcelVBA】