Anzahl Monate und Anzahl Wochen seit dem 01.01.0001 ermitteln

[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;