Date Functions VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Date Functions
  4. Difference between two dates in days and months
Sub dateFunctions()
   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