Examples: Month function Dim x As Long Dim mm As Integer x& = DateNumber(1994, 4, 1) mm% = Month(x&) Print mm% ' Output: ' 4