
DEF FN Wochentag$(Datum$)
LOCAL Tage,Tag$
Tage=FN Tage(Datum$)
SELECT Tage MOD 7
CASE 0
   Tag$="Dienstag"
CASE 1
   Tag$="Mittwoch"
CASE 2
   Tag$="Donnerstag"
CASE 3
   Tag$="Freitag"
CASE 4
   Tag$="Samstag"
CASE 5
   Tag$="Sonntag"
CASE 6
   Tag$="Montag"
END_SELECT
RETURN Tag$
END_FN