Mega Code Archive

 

Categories / VisualBasic Script / Data Type

 

Try It Out-Dates

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