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