Examples: Day function Dim x As Variant, dd As Integer x = DateNumber(1992, 4, 7) dd% = Day(x) Print dd% ' Prints 7