1 DEF FN Wochentag(Tag,Monat,Jahr)
2 T=FN Juliandat!(Tag,Monat,Jahr,12)
3 IF T>0 THEN
4 T=(T MOD 7)+1
5 ENDIF
6 RETURN T
7 END_FN

Jahr ist wieder im jjjj-Format angegeben. Die Funktion gibt die Nummer des Wochentages zurück: Mo=1, Di=2, ..., So=7

Viel Spaß beim Ausprobieren und ein Prost am Jahrtausendwechsel, Neujahr 2001!
Literatur: Sterne im Computer, K. Hempe, J Molt, ISBN 3-481-36411-3 Grundlagen der Ephemeridenrechnung, O. Montenbruck, ISBN 3-87973-913-7
Kontakt, E-Mail Mausnetz: Gerald Dietze @S4
Softwaredownload im Internet: http://www.uni-hohenheim.de/~gdietze/dsi.html

Millennium 2 - 16 / 16