VBA関数のDateDiff関数

DateDiff関数は、VBA関数の中で日付・時刻関数に分類される関数です。

目次

• DateDiff関数とは
• DateDiff関数のサンプルコード
  • 実行結果
  • 解説

DateDiff関数とは

DateDiff関数は、2 つの指定した日付の時間間隔を表すバリアント型 (内部処理形式 Date の Variant) の値を指定します。

引数interval

引数firstdayofweek

引数firstweekofyear

DateDiff 関数を使うと、指定した時間単位で 2 つの日付の時間間隔を調べることができます。たとえば、2 つの日付の間の日数や、現在から年末までの週の数などを求めることができます。

名前付き引数 date1 と date2 の間の日数を求めるには、年間通算日 ("y") か、日 ("d") のいずれかを指定します。名前付き引数 interval に週日 ("w") を指定すると、2 つの日付の間の週の数が計算されます。名前付き引数 date1 が月曜日の場合は、名前付き引数 date2 までの間の月曜日の数が返されます。このとき名前付き引数 date2 の月曜日は計算に入りますが、名前付き引数 date1 の月曜日は計算に入りません。一方、名前付き引数 interval に週 ("ww") を指定した場合は、2 つの日付の間の暦上の週の数が計算されます。つまり、名前付き引数 date1 と date2 の間の日曜日の数が返されます。名前付き引数 date2 に指定した日付が日曜日であれば、名前付き引数 date2 は計算に入りますが、名前付き引数 date1 は日曜日であっても計算に入りません。

名前付き引数 date2 よりも時間的に後の日付を名前付き引数 date1 に指定すると、DateDiff 関数は負の数を返します。名前付き引数 firstdayofweek は、名前付き引数 interval に週 ("ww") を指定した場合の計算値に影響します。

名前付き引数 date1 または date2 に日付リテラルを指定した場合、指定した年が日付の固定部分となります。ただし、名前付き引数 date1 または date2 をダブル クォーテーション (" ") で囲み、年を省略すると、名前付き引数 date1 または date2 の式が評価されるたびにコードに現在の年が挿入されます。これを利用すると、異なる年度で使用できるコードを記述することが可能になります。

12 月 31 日とその次の年の 1 月 1 日を比較すると、DateDiff 関数の年 ("yyyy") は、1 日後であっても、1 を返します。

Calendar プロパティの設定がグレゴリオ暦の場合、引数 date1 および date2 にはグレゴリオ暦で表される日付を指定する必要があります。Calendar プロパティの設定が回教暦の場合、引数 date1 および date2 には回教暦で表される日付を指定する必要があります。DateDiff関数のサンプルコード

次の例は、DateDiff 関数を使って、指定された日付までの日数を取得します。

Sub sample()

 Dim TheDate As Date            ' 変数を宣言します。
 Dim Msg
 TheDate = InputBox("日付を入力してください。")
 Msg = "今日からの日数: " & DateDiff("d", Now, TheDate)
 MsgBox Msg

End Sub

実行結果

解説

日付・時刻関数一覧