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