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

Home
VBA / Excel / Access / Word
1.Access
2.Application
3.Data Type
4.Data Type Functions
5.Date Functions
6.Excel
7.File Path
8.Forms
9.Language Basics
10.Math Functions
11.Outlook
12.PowerPoint
13.String Functions
14.Windows API
15.Word
16.XML
Microsoft Office PowerPoint 2007 Tutorial
Microsoft Office Excel 2007 Tutorial
Microsoft Office Word 2007 Tutorial
VBA / Excel / Access / Word » Date Functions » DateDiff 
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)
java2s.com  |  | Contact Us | Privacy Policy
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.