See Also Example
Returns an integer between 100 and 9999, inclusive, that represents the year of a date argument.
Syntax
Year(dateexpression)
Remarks
The dateexpression part of the syntax is any numeric expression Numbers to the left of the decimal point in dateexpression represent the date; numbers to the right represent the time. Negative numbers represent dates prior to December 30, 1899.
If dateexpression is Null
Date, Date$ Functions
Date, Date$ Statements
Day Function
Hour Function
Minute Function
Month Function
Now Function
Second Function
Weekday Function
The example uses the Year function to determine whether or not the current year is a leap year. To try this example, paste the code into the Declarations section of a form. Then press F5 and click the form.
Sub Form_Click ()
Dim CurYear, LeapYear, Msg ' Declare variables.
CurYear = Year(Now) ' Get current year.
If CurYear Mod 4 = 0 And CurYear Mod 100 = 0 Then
If CurYear Mod 400 = 0 Then ' Evenly divisible by 400?
LeapYear = "is a leap year."
Else ' Not evenly divisible.
LeapYear = "is a centesimal year but not a leap year."
End If
ElseIf CurYear Mod 4 = 0 Then
LeapYear = "is a leap year."
Else
LeapYear = "is not a leap year."
End If
MsgBox "The current year, " & CurYear & ", " & LeapYear
End Sub