Date Functions VisualBasic Script

Sub dateFunctions1()
   Debug.Print "The months between 3/15/2000 and today is: " & DateDiff("m", "3/15/2000", Now)
End Sub