In diesem Beispiel wird die Weekday-Funktion verwendet, um den Wochentag aus einem angegebenen Datum zu ermitteln.
Dim Datum1, Wochentag1 Datum1 = #12. Februar 1969# ' Datum zuweisen. Wochentag1 = Weekday(Datum1) ' Wochentag1 enthält 4, da ' Datum1 einen Mittwoch darstellt.