VBA - DateDiff Function

A Function, which returns the difference between two specified time intervals.

Syntax

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

Parameter Description

• Interval − A required parameter. It can take the following values.

  • d - day of the year

  • m - month of the year

  • y - year of the year

  • yyyy - year

  • w - weekday

  • ww - week

  • q - quarter

  • h - hour

  • m - minute

  • s - second

• Date1 and Date2 − Required parameters.

• Firstdayofweek − An optional parameter. Specifies the first day of the week. It can take the following values.

  • 0 = vbUseSystemDayOfWeek - Use National Language Support (NLS) API setting

  • 1 = vbSunday - Sunday

  • 2 = vbMonday - Monday

  • 3 = vbTuesday - Tuesday

  • 4 = vbWednesday - Wednesday

  • 5 = vbThursday - Thursday

  • 6 = vbFriday - Friday

  • 7 = vbSaturday - Saturday

• Firstdayofyear − An optional parameter. Specifies the first day of the year. It can take the following values.

  • 0 = vbUseSystem - Use National Language Support (NLS) API setting

  • 1 = vbFirstJan1 - Start with the week in which January 1 occurs (default)

  • 2 = vbFirstFourDays - Start with the week that has at least four days in the new year

  • 3 = vbFirstFullWeek - Start with the first full week of the new year

Example

Add a button and add the following function.

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

When you execute the above function, it produces the following output.

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