Date Functions VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Date Functions
  4. 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