Función Year

Devuelve el año a partir de una fecha serie que genera la función DateSerial o DateValue.

Sintaxis:

Year (Número)

Valor de retorno:

Entero

Parámetros:

Número: Expresión entera que contenga el número de fecha serie que se utilice para calcular el año.

Esta función es la contraria a DateSerial y devuelve el año de una fecha serie. Por ejemplo, la expresión:

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

devuelve el valor 1994.

Ejemplo:

Sub ExampleYear
    MsgBox "" & Year(Now) ,64,"Año actual"
End Sub