| 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