Datumswerte vor dem 30.12.1899

[jbg]

Zitat von p80286:

habe ich einfach mal .asdatetime genutzt und dabei wurde null mit dem 30.12.1899 übersetzt.

Das liegt daran, dass AsDateTime versucht irgendwas auf NULL herauszuholen. Und bei Zahlen ist das eben immer die 0, was dann dem 30.12.1899 entspricht. Daher sollte man immer vorher auf IsNull prüfen.

[mjustin]

Zitat von p80286:

Hallo zusammen,

ist Delphi für Datumswerte die vor dem 30.12.1899 liegen eigentlich vollkommen blind?
oder sind die entsprechenden TDateTime-Werte dann negativ?

Zusatzfrage

In einigen römisch-katholischen Ländern folgte auf Donnerstag, den 4. Oktober gleich Freitag, der 15. Oktober 1582.
Berücksichtigt Delphi das auch, z.B. durch einen entsprechenden Sprung in den FormatDateTime oder DateToStr Funktionen? Müsste ich mal nachschauen ...

http://de.wikipedia.org/wiki/Gregorianischer_Kalender

[Sunlight7]

Versuchs einfach

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
   var Date:TDateTime;
       i:Integer;
begin
   Date:=EncodeDate(1582, 10, 3);

   For i:=0 to 14 do
      Memo1.Lines.Add(DateToStr(Date+i));
end;