DayOfWeek

[MrSpock]

Hallo,

ich wollte mit DayOfWeek feststellen, welcher Wochentag der 01.01.0001 war. DayOfWeek gibt hier 7 (=Samstag) zurück. Mit mehreren Rechnern im Internet habe ich das versucht zu verifizieren. Dort wird als Wochentag "Montag" zurückgegeben.
Hat jemand eine Funktion DayOfWeek, die auch für so alte Datum-Werte korrekt funktioniert?

[MrSpock]

Hab gerade mal geschaut, wie Delphi es macht:

Code: Alles auswählen

DateTimeToTimeStamp(DateTime).Date mod 7 + 1;

So funktioniert es auch in Lazarus

[Eclipticon]

Ich kann zwar keine Alternative anbieten ... aber das Problem koennte mit der Umstellung von Julianischem auf Gregorianischen Kalender zu tun haben.

[Heinrich Wolf]

Hi,

schau Dir mal meine Sammlung von astronomischen Formeln an.
http://www.lazarusforum.de/viewtopic.php?f=29&t=5087
http://www.Wolf-Fuerth.de/deltime.zip

Gruß
Heiner

[mschnell]

Hat jemand eine Funktion DayOfWeek, die auch für so alte Datum-Werte korrekt funktioniert?

Die Formeln funktionieren sicher problemlos, aber ob die Aussage "heute ist Samstag"vor vielen 100 Jahren irgendeine Bedeutung hatte und ob es da überhaupt eine den Begriff der Woche gab, ist eine ganz andere Frage und natürlich auch stark Orts-Abhängig. Auch die Anzahl der Tage im Jahr wurde früher anders kalkuliert als heute üblich, was die "Wochentage" dann gegenüber dem Datum als "Tag im Jahr" verschiebt. Zusätzlich ist zu bedenken, dass es "offiziell" kein Jahr 0 gab: nach dem letzten Tag des Jahres 1 vor Christus kam der erste Tag des Jahres 1 nach Christus).

Kurz: die Frage nach dem Wochentag des ersten Tages des Jahres 1nach Christus ist genau so ein Unsinn wie die Frage nach der Uhrzeit des Urknalls.

-Michael