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