Funcția VBA Year returnează un număr întreg corespunzător anului datei specificate.
Year(data)
Folosind funcția Year pentru a prelua informații relevante de la o dată:
Sub YearExample1()
myDate = #10/30/2020#
MsgBox Year(myDate) 'Retur: 2020
End Sub
Această funcție acceptă și o dată în format text:
Sub YearExample2()
myDate = "30.10.2020"
MsgBox Year(myDate) 'Retur: 2020
End Sub