Anzahl Monate und Anzahl Wochen seit dem 01.01.0001 ermitteln

[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

[Uwe Raabe]

Zitat von juergen:

Das Problem: Alle Funktionen die ich kenne nutzen Date(time) welche wohl nur einen Gültigkeitsbereich bis 30.12.1899 haben.

Dem widerspricht aber irgendwie die Existenz dieser Konstanten:

Delphi-Quellcode:

const
  MinDateTime: TDateTime = -657434.0;      { 01/01/0100 12:00:00.000 AM }
  MaxDateTime: TDateTime =  2958465.99999; { 12/31/9999 11:59:59.999 PM }

Hast du es denn überhaupt mal damit versucht?

Alternativ könntest du auch mit TTimeStamp arbeiten:

Delphi-Quellcode:

  TTimeStamp = record
    Time: Integer;      { Number of milliseconds since midnight }
    Date: Integer;      { One plus number of days since 1/1/0001 }
  end;

Da es aber Umrechnungsroutinen gibt, kannst du auch gleich TDateTime verwenden:

Delphi-Quellcode:

function DateTimeToTimeStamp(DateTime: TDateTime): TTimeStamp;

function TimeStampToDateTime(const TimeStamp: TTimeStamp): TDateTime;

[Redeemer]

TTimeStamp.Date = DaysBetween(MinDateTime, irgendwas)? Oder noch +1?

[juergen]

Zitat von Uwe Raabe:

Zitat von juergen:

Das Problem: Alle Funktionen die ich kenne nutzen Date(time) welche wohl nur einen Gültigkeitsbereich bis 30.12.1899 haben.

Dem widerspricht aber irgendwie die Existenz dieser Konstanten:

Delphi-Quellcode:

const
  MinDateTime: TDateTime = -657434.0;      { 01/01/0100 12:00:00.000 AM }
  MaxDateTime: TDateTime =  2958465.99999; { 12/31/9999 11:59:59.999 PM }

Danke für deine Hinweise, Uwe! Ich hatte mich zum Zeitpunkt wo ich den Thread erstellt hatte durch die Function DateToStr() täuschen lassen. Zu dem Zeitpunkt wusste ich noch nicht, dass der Wert negativ wird wenn das Datum < 30.12.1899 ist und dass das ein gültiger Wert ist.

@Redeemer,
Danke für deine Hilfe!

Ich verwende nun folgenden Code der in etlichen Tests mit den Werten aus den Tabellen übereinzustimmen scheint:

Delphi-Quellcode:

    li_Anzahl_Tage_vom_01_01_0001_bis_gewaehltesDatum_fuer_Monat := DaysBetween(StrToDate('01.01.0001'), Trunc(cxDateEdt_Ende_Datum.Date)) -
      Trunc(DayOfTheMonth(cxDateEdt_Ende_Datum.Date));

    li_Anzahl_Tage_vom_01_01_0001_bis_gewaehltesDatum_fuer_Woche := DaysBetween(StrToDate('01.01.0001'), Trunc(cxDateEdt_Ende_Datum.Date)) -
      Trunc(DayOfTheWeek(cxDateEdt_Ende_Datum.Date));

Ich wende quasi eine Art Offset an.


Interessanterweise kommen hier aber falsche Werte raus, obwohl das einfacher und logischer ausschaut:

Delphi-Quellcode:

    li_Anzahl_Tage_vom_01_01_0001_bis_gewaehltesDatum_fuer_Monat := MonthsBetween(StrToDate('01.01.0001'), Trunc(cxDateEdt_Ende_Datum.Date));
    li_Anzahl_Tage_vom_01_01_0001_bis_gewaehltesDatum_fuer_Woche := WeeksBetween(StrToDate('01.01.0001'), Trunc(cxDateEdt_Ende_Datum.Date));

Das Thema scheint erledigt, vielen Dank an alle!

[Redeemer]

StrToDate sollte nicht mit Konstanten verwendet werden. Sonst stellt der Benutzer in den Regionseinstellungen irgendwas ein und dann läuft das Programm nicht mehr. 'Blablabla' ist kein gültiges Datum.
Daher ja MinDateTime als ersten Parameter nehmen.

[Uwe Raabe]

Zitat von Redeemer:

Daher ja MinDateTime als ersten Parameter nehmen.

Aber ihr habt schon gesehen, daß MinDateTime nicht den 01.01.0001 darstellt?

[Redeemer]

Oh, Jahr 100!
Aber wenn MinDateTime = 01.01.0100, warum kann StrToDate dann ein niedrigeres als das niedrigste Ergebnis liefern? Rechnerisch ist das klar, aber das führt doch den Bezeichner MinDateTime ad absurdum.

[Uwe Raabe]

Zitat von Redeemer:

aber das führt doch den Bezeichner MinDateTime ad absurdum.

Genau! Keine Ahnung, warum das so ist.

[TurboMagic]

Zitat von Uwe Raabe:

Zitat von Redeemer:

aber das führt doch den Bezeichner MinDateTime ad absurdum.

Genau! Keine Ahnung, warum das so ist.

Tja, warum das so ist, werden wir wohl nur dann rausbekommen, wenn mal jemand auf irgend eine
Art und Weise bei EMBT nachfragt...

[Uwe Raabe]

Die Konstante gibt es allerdings schon sehr lange (mindestens seit Delphi 7). Vielleicht hat jemand bei der Berechnung die Jahreszahl nur zweistellig eingegeben und die folgenden Nullen übersehen. Irgendwann wurde der Fehler bemerkt und der Kommentar entsprechend angepasst. Damit bleibt man abwärtskompatibel und es ist kein Fehler mehr, sondern as designed.

Innerhalb System.SysUtils wird die Konstante nur in TryFloatToDateTime verwendet. Das beschränkt ihren Einfluss doch auf ein überschaubares Gebiet.

Interessanterweise wird die gleiche Konstante (mit dem selben Wert!) auch in FireDAC.Phys.PGWrapper deklariert (obwohl dort bereits System.SysUtils in der uses steht). Ob das Absicht oder Versehen ist, kann ich nicht beurteilen.