Datumsangaben innerhalb eines Zeitraumes

[Satty67]

Beispiel:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  First, Last, ADate : TDate;
  i : Integer;
begin
  First := StrToDate('1.1.2011');
  Last := StrToDate('31.1.2011');

  for i := Trunc(First) to Trunc(Last) do
  begin
    ADate := i;
    Memo1.Lines.Add(DateToStr(ADate));
  end;
end;