Year Function

Liveras la jaron el data numero generita de la funkcio DateSerial aŭ DateValue.

Sintakso:

Year (Number)

Liverota valoro:

Entjero

Parametroj:

Number: Entjera esprimo kiu donas la datan numeron por kalkuli la jaron.

Ĉi tiu funkcio estas la kontraŭo de la funkcio DateSerial, kaj liveras la jaron de data numero. Ekzemple, la esprimo:

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

liveras la valoron 1994.

Ekzemplo:

Sub ExampleYear

    MsgBox "" & Year(Now) ,64,"Nuna jaro"

End Sub