Функция VBA Year возвращает целое число, соответствующее году указанной даты.
Year(дата)
Использование функции Year для получения соответствующей информации с даты:
Sub YearExample1()
maDate = #10/30/2020#
MsgBox Year(maDate) 'Возвращает: 2020
End Sub
Эта функция также принимает даты в текстовом формате:
Sub YearExample2()
maDate = "30/10/2020"
MsgBox Year(maDate) 'Возвращает: 2020
End Sub