Вы можете использовать функции Month()
и Year()
, которые будут принимать параметр Date.
Т.е. Month(Now)
вернет месяц, а Year(Now)
вернет год.
Dim yourDate As Date
yourDate = #01/02/2012#
Dim yourMonth As Integer
Dim yourYear As Integer
yourMonth = Month(yourDate)
yourYear = Year(yourDate)