Year Function

Возвращает год из даты в числовом формате, созданной с помощью функции DateSerial или DateValue.

Синтаксис

Year (Число)

Возвращаемое значение:

Integer

Параметры:

Число. Целое выражение, содержащее дату в числовом формате, из которой будет определен год.

Эта функция обратна функции DateSerial и возвращает год из даты в числовом формате. Например, выражение

Print Year(DateSerial(1994, 12, 20))

возвращает значение 1994.

Пример:

Sub ExampleYear
    MsgBox "" & Year(Now) ,64,"Текущий год"
End Sub