| Programmcode |
| weekday(d,m,y)
Func Local c,w 
Jänner bzw. Februar zählen zum Vorjahr
If m = 1 or m = 2 y - 1 ® y
Korrektur der Monatszahl laut Tabelle
mod(m + 10, 12) ® m If m = 0 m + 12 ® m
Berechnen von c und y
iPart(y/100) ® c mod(y, 100) ® y
Wochentagsformel
Auswerten von w
If w = 0 Return "Sonntag" If w = 1 Return "Montag" If w = 2 Return "Dienstag" If w = 3 Return "Mittwoch" If w = 4 Return "Donnerstag" If w = 5 Return "Freitag" If w = 6 Return "Samstag" EndFunc |