Функция 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