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!
