In diesem Beispiel wird die Year-Funktion verwendet, um das Jahr aus einem angegebenen Datum zu ermitteln. In der Entwicklungsumgebung wird das Datumsliteral im kurzen Datumsformat unter Verwendung der Gebietsschemaeinstellungen für Ihren Code angezeigt.
Dim Datum1, Jahr1 Datum1 = #12. Februar 1969# ' Datum zuweisen. Jahr1 = Year(Datum1) ' Jahr1 enthält 1969.