Funkce Year
Vrátí hodnotu určující rok odpovídající datu v číselné podobě (vytvořenému funkcí DateSerial nebo DateValue).
Syntaxe:
Year (Number)
Návratová hodnota:
Celé číslo
Parametry:
Number: Číselný výraz, který obsahuje datum v číselné podobě, ze kterého se určí rok.
Tato funkce je v podstatě opakem funkce DateSerial, protože vrací rok z data v číselné podobě. Například výraz:
Print Year(DateSerial(1994, 12, 20))
vrátí hodnotu 1994.
Příklad:
Sub ExampleYear
MsgBox "" & Year(Now) ,64,"Current year"
End Sub