Anzahl Monate und Anzahl Wochen seit dem 01.01.0001 ermitteln

[juergen]

Hallo,
ja, meine Angaben sind wohl unvollständig.
Die Anzahl von Wochen und Monaten stehen in einigen Tabellen einer Datenbank.
ich muss damit "irgendwie" zurecht kommen. Datumswerte gibt es nicht. Ich muss z.B. alle Datensätze auslesen, die vom April 2019 sind. Das entspricht der Anzahl von Monaten => 24220.
Ich gehe davon aus, dass als Grundlage für die Berechnungen rückwirkend bis zum 01.01.0001 der heute gültige Kalender/ -regeln gelten. Vermutlich muss ich das rein mathematisch lösen.

[Redeemer]

Ja gut, das geht ja einfach mit DIV und MOD. Dankbarerweise sind in der Geschichte keine ganzen Monate ausgefallen.

Aber soll das jetzt mit den Wochen sein?

[p80286]

Zitat von juergen:

Die Anzahl von Wochen und Monaten stehen in einigen Tabellen einer Datenbank.

Bitte etwas detailierter. Ich wette daß da niemand vom 01.01.01 an gezählt hat. Wahrscheinlich gibt es einen Startwert auf dem die Zählungen basieren.

(Wie rechnet man eigentlich den franz. Revolutionskalender um?)

Gruß
K-H

[stpolster]

Für solche Berechnungen kennt die Astronomie das Julianische Datum; hat nichts mit dem Julianischen Kalender zu tun.
Die Tage werden fortlaufend ab dem 1.1.4713 v.Z. 12 Uhr durchnummeriert.

Algorithmus:
Gegeben ist ein beliebiges (gültiges) Datum (tag.monat.jahr) sowohl im Gregorianischen als auch Julianischen Kalender. Dann gibt folgender Algorithmus das Julianische Datum JD.

K = 10000· jahr + 100·monat + tag
B = -63,5
Y = jahr + 4712
M = monat + 1
Wenn monat <= 2 dann Y = Y-1 und M = M +12
Wenn K >= 15821015 dann A = INT[(Y+88)/100]
und B = B +38 - A + INT[A/4]

JD = INT[365,25·Y] + INT[30,6001·M] + tag +B

INT[ ] ist dabei der ganzzahlige Anteil des Ergebnisses

Die Differenz zweier Julianischer Daten ist dann die Anzahl der Tage zwischen den Daten.

LG Steffen

[Redeemer]

Zitat von stpolster:

Für solche Berechnungen kennt die Astronomie das Julianische Datum; hat nichts mit dem Julianischen Kalender zu tun.
Die Tage werden fortlaufend ab dem 1.1.4713 v.Z. 12 Uhr durchnummeriert.

Algorithmus:
Gegeben ist ein beliebiges (gültiges) Datum (tag.monat.jahr) sowohl im Gregorianischen als auch Julianischen Kalender. Dann gibt folgender Algorithmus das Julianische Datum JD.

K = 10000· jahr + 100·monat + tag
B = -63,5
Y = jahr + 4712
M = monat + 1
Wenn monat <= 2 dann Y = Y-1 und M = M +12
Wenn K >= 15821015 dann A = INT[(Y+88)/100]
und B = B +38 - A + INT[A/4]

JD = INT[365,25·Y] + INT[30,6001·M] + tag +B

INT[ ] ist dabei der ganzzahlige Anteil des Ergebnisses

Die Differenz zweier Julianischer Daten ist dann die Anzahl der Tage zwischen den Daten.

LG Steffen

Kann man auch kürzer schreiben:

Delphi-Quellcode:

function JD(dt: TDateTime): Double;
begin
  JD := dt + 2415018.5;
end;

/Edit: für dt>=0, da TDateTime in Delphi dämlich definiert ist

[Blup]

Zitat von juergen:

Hallo,
Die Anzahl von Wochen und Monaten stehen in einigen Tabellen einer Datenbank.
ich muss damit "irgendwie" zurecht kommen. Datumswerte gibt es nicht. Ich muss z.B. alle Datensätze auslesen, die vom April 2019 sind. Das entspricht der Anzahl von Monaten => 24220.

Die Angaben zu Daten in der Datenbank sind viel zu ungenau, um eine Lösung zu formulieren.

Unter folgender der Annahme:
- für jeden Tag des Kalenders existiert genau ein Eintrag in der Tabelle t_kalender mit den Spalten Tag, Monat, Jahr
- nicht mehr als 99 Tage je für eine Kombination aus Monat/Jahr
- nicht mehr als 99 Monate für ein Jahr

Parameter:
von_tag
von_monat
von_jahr
bis_tag
bis_monat
bis_jahr

Code:

select count(tag) as cnt_tag, count (distinct jahr, monat) as cnt_monat
from    t_kalender
where   ((((:von_jahr * 100 + :von_monat) * 100) + :von_tag) <= (((jahr * 100 + monat) * 100) + tag)) and
       ((((:bis_jahr * 100 + :bis_monat) * 100) + :bis_tag) >= (((jahr * 100 + monat) * 100) + tag))

Rückgabewerte:
cnt_tag Anzahl Tage im Zeitraum
cnt_monat Anzahl Monate im Zeitraum