Vba-datediff-function

VBA-DateDiff関数

指定された2つの時間間隔の差を返す関数。

構文

DateDiff(interval, date1, date2 [,firstdayofweek[, firstweekofyear]])

パラメータ説明

• 間隔-必須パラメーター。 次の値を取ることができます。
• d-年の日
• m-年の月
• y-年
• yyyy-年
• w-平日
• ww-週
• q-四半期
• 時間-時間
• m-分
• s-秒
• Date1 および Date2 -必須パラメーター。
• Firstdayofweek -オプションのパラメーター。 週の最初の日を指定します。 次の値を取ることができます。
• 0 = vbUseSystemDayOfWeek-各国語サポート（NLS）API設定を使用
• 1 = vbSunday-日曜日
• 2 = vbMonday-月曜日
• 3 = vbTuesday-火曜日
• 4 = vbWednesday-水曜日
• 5 = vbThursday-木曜日
• 6 = vbFriday-金曜日
• 7 = vbSaturday-土曜日
• Firstdayofyear -オプションのパラメーター。 年の最初の日を指定します。 次の値を取ることができます。
• 0 = vbUseSystem-各国語サポート（NLS）API設定を使用
• 1 = vbFirstJan1-1月1日が発生する週から開始します（デフォルト）
• 2 = vbFirstFourDays-新しい年に少なくとも4日ある週から開始する
• 3 = vbFirstFullWeek-新年の最初の完全な週から開始

例

ボタンを追加し、次の関数を追加します。

Private Sub Constant_demo_Click()
   Dim fromDate as Variant
   fromDate = "01-Jan-09 00:00:00"

   Dim toDate as Variant
   toDate = "01-Jan-10 23:59:00"

   msgbox("Line 1 : " &DateDiff("yyyy",fromDate,toDate))
   msgbox("Line 2 : " &DateDiff("q",fromDate,toDate))
   msgbox("Line 3 : " &DateDiff("m",fromDate,toDate))
   msgbox("Line 4 : " &DateDiff("y",fromDate,toDate))
   msgbox("Line 5 : " &DateDiff("d",fromDate,toDate))
   msgbox("Line 6 : " &DateDiff("w",fromDate,toDate))
   msgbox("Line 7 : " &DateDiff("ww",fromDate,toDate))
   msgbox("Line 8 : " &DateDiff("h",fromDate,toDate))
   msgbox("Line 9 : " &DateDiff("n",fromDate,toDate))
   msgbox("Line 10 : "&DateDiff("s",fromDate,toDate))
End Sub

上記の関数を実行すると、次の出力が生成されます。

Line 1 : 1
Line 2 : 4
Line 3 : 12
Line 4 : 365
Line 5 : 365
Line 6 : 52
Line 7 : 52
Line 8 : 8783
Line 9 : 527039
Line 10 : 31622340