In diesem Beispiel wird die DateSerial-Funktion verwendet, um das Datum für die angegebene Jahres-, Monats- und Tageszahl zurückzugeben.
Dim Datum1 ' Datum1 enthält das Datum für den 12. Februar 1969. Datum1 = DateSerial(1969, 2, 12) ' Datum zurückgeben.