Data Type VisualBasic Script

Sub DateTest()
    Dim datDec As Date
    Dim datMay As Date
    
    datMay = #5/1/1998#
    datDec = #12/1/1998#
    
    Debug.Print DatePart("m", datDec)
    
    Debug.Print DateDiff("m", datMay, datDec)
     
    Debug.Print "August is " & DateAdd("m", 3, datMay)
End Sub