Examples: Year function Dim x As Variant Dim yy As Integer x = DateNumber(1995, 4, 1) yy% = Year(x) Print yy% ' Output: ' 1995