Datumswerte vor dem 30.12.1899

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