Year Function
Возвращает год из даты в числовом формате, созданной с помощью функции DateSerial или DateValue.
Синтаксис
Year (Число)
Возвращаемое значение:
Integer
Параметры:
Число. Целое выражение, содержащее дату в числовом формате, из которой будет определен год.
Эта функция обратна функции DateSerial и возвращает год из даты в числовом формате. Например, выражение
Print Year(DateSerial(1994, 12, 20))
возвращает значение 1994.
Пример:
Sub ExampleYear
MsgBox "" & Year(Now) ,64,"Текущий год"
End Sub