Datum in for-Schleife verwenden ?

[Andreas L.]

Delphi-Quellcode:

uses ..., DateUtils;

...
...

var
  i: Int64;
  VonDatum: Int64;
  BisDatum: int64;
  VonDatum2: TDateTime;
  BisDatum2: TDateTime;
begin
  VonDatum2 := EncodeDate(2010, 01, 01, 0, 0, 0);
  BisDatum2 := Now;

  VonDatum := DateTimeToUnix(VonDatum2);
  BisDatum := DateTimeToUnix(BisDatum2);

  for i := VonDatum to BisDatum do
  begin
    ...
  end;
end;