日付や時刻の間隔を計算する【DateDiff関数】【ExcelVBA】

構文

DateDiff（interval, date1, date2[, firstdayofweek[, firstweekofyear]]）

DateDiff関数のサンプルコード

Public Sub sample()

    '■標準の使い方(日付)
    Debug.Print DateDiff("d", "2021/01/01", "2021/01/02")    '1　日
    Debug.Print DateDiff("yyyy", "2021/01/01", "2023/01/01") '2　年間
    Debug.Print DateDiff("q", "2021/01/01", "2021/04/01", vbSunday, vbFirstJan1)

    
    '■標準の使い方(時刻)
    Debug.Print DateDiff("h", "10:00:00", "12:00:00")    '2　  時間
    Debug.Print DateDiff("n", "10:00:00", "12:00:00")    '120　分
    Debug.Print DateDiff("s", "10:00:00", "12:00:00")    '7200 秒
    
    '■注意必要
    Debug.Print DateDiff("yyyy", "2021/01/01", "2021/12/31") '実質1年間だが、年の間隔の算出する為、0となる
    Debug.Print DateDiff("q", "2021/01/01", "2021/07/01")    '3クォーターの始まりだが差だけ取得するため、2となる
    Debug.Print DateDiff("m", "2021/01/01", Now) '現時点では8月だが、1月からの間隔は7カ月
    
    '■イレギュラー対応(渡す引数が形式が違ってもデータを取得)
    Debug.Print DateDiff("m", "2021/01/01 12:00:00", "2021/08/09") '7
    Debug.Print DateDiff("m", #1/1/2021#, "2021/08/09")            '7
    Debug.Print DateDiff("m", #1/1/2021#, "2022/01/01")   '12
    
    '■その他
    Debug.Print DateDiff("s", "2021/08/09", Now)  '現時点の時刻と比較も可能。
    Debug.Print DateDiff("d", "21/8/9", "21/1/1")  '-220　開始日のが過去の場合はマイナスで表示する

End Sub

注意点

• あくまでも間隔だけの値の取得になる為、現年齢の算出はint関数で応用した方が早いです。
• ワークシート関数のDateDif関数とはスペルも引数も違います。
• VBAで使用できるWorksheetFunctionにはDateDif関数はありません。

関連記事

• 日付から曜日を取得する【WeekDay/WeekDayName関数】【ExcelVBA】
• 年/月/日から日付データを取得する【DateSerial関数】【ExcelVBA】
• 現在日付・現在時刻を取得する【Date関数/Time関数/Now関数】【ExcelVBA】
• 現年齢を算出する処理をパーツ化する【int関数応用】【ExcelVBA】