Year Function

Syntax
Year(dateexpr)
Group
Time/Date
Description
Return the year.
Parameters Description
dateexpr Return the year for this date value. If this value is Null then Null is returned.
See Also
Date( ), Day( ), Month( ), Weekday( )

Sub Main
    Debug.Print Year(#1/1/1900#) ' 1900
    Debug.Print Year(#1/1/2000#) ' 2000
End Sub