La funzione VBA Year restituisce un numero intero corrispondente all'anno della data specificata.
Year(data)
Utilizzo della funzione Year per recuperare informazioni rilevanti da una data:
Sub YearExample1()
myDate = #10/30/2020#
MsgBox Year(myDate) 'Resi: 2020
End Sub
Questa funzione accetta anche una data in formato testo:
Sub YearExample2()
myDate = "30/10/2020"
MsgBox Year(myDate) 'Resi: 2020
End Sub