La función Año devuelve un número entero que representa un año de la fecha especificada.
Sintaxis
Year(date)
Ejemplo
Agregue un botón y agregue la siguiente función.
Private Sub Constant_demo_Click()
msgbox(Year("2013-06-30"))
End sub
Cuando ejecuta la función anterior, produce la siguiente salida.
2013