Use DateDiff function : DateDiff « Date Functions « VBA / Excel / Access / Word






Use DateDiff function

 

Sub dateDiffFunction()
   Dim strDateString As String
   
   strDateString = "The days between 3/15/2000 and today is: " & _
                   DateDiff("d", "3/15/2000", Now) & vbCrLf & _
                   "The months between 3/15/2000 and today is: " & _
                   DateDiff("m", "3/15/2000", Now)
   
   MsgBox strDateString
End Sub

 








Related examples in the same category

1.DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]]) returns the interval between two specified dates
2.DateDiff returns the interval of time between two dates:
3.Difference between two dates in days and months:
4.returns the number of weeks between June 3, 2006 and September 30, 2006:
5.DateDiff() function returns the difference between two dates. The unit for the difference is specified as a string ( "s" for second, "m" for month, "yyyy" for year, and so on).
6.DateDiff("m", Now, "10/10/03")
7.DateDiff("yyyy", Now, "10/10/03")
8.DateDiff("m", "3/15/2000", Now)