Mega Code Archive

 

Categories / VisualBasic Script / Data Type

 

Create Date type variable

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