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