Datum vergleichen und Ereignis ausgeben

[DeddyH]

Kannst Du hiermit etwas anfangen?

Delphi-Quellcode:

uses DateUtils;

procedure ListDaysBetween(StartDate, EndDate: TDate; const sl: TStrings);
begin
  sl.BeginUpdate;
  try
    sl.Clear;
    while Trunc(StartDate) <= Trunc(EndDate) do
      begin
        sl.Add(FormatDateTime('dd.mm.yyyy',StartDate));
        StartDate := IncDay(StartDate,1);
      end;
  finally
    sl.EndUpdate;
  end;
end;

[edit] Code um überflüssige Variable gekürzt [/edit]