Datumsdifferenz?!

[DeddyH]

Kannst es auch mal hiermit versuchen:

Delphi-Quellcode:

procedure ListDaysBetween(FirstDate, SecondDate: TDate; const sList: TStrings);
var CurrDate: TDate;
begin
  sList.BeginUpdate;
  try
    sList.Clear; //kann auch weggelassen werden, dann bleiben alte Einträge erhalten
    CurrDate := trunc(FirstDate);
    while CurrDate <= trunc(SecondDate) do
      begin
        sList.Add(DateToStr(CurrDate));
        CurrDate := CurrDate + 1; //unter Delphi 5 gibt es DateUtils noch nicht
      end;
  finally
    sList.EndUpdate;
  end;
end;