VBA - DateDiff 函式

一個返回兩個指定時間間隔之間差值的函式。

語法

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

引數說明

• Interval − 必需引數。它可以取以下值。

  • d - 一年中的某一天

  • m - 一年中的某個月

  • y - 一年中的某一年

  • yyyy - 年份

  • w - 星期幾

  • ww - 星期

  • q - 季度

  • h - 小時

  • 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 - 從在新的一年中至少有四天的那一週開始

  • 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