Iterate date / loop through dates

Christoph Aust

Hi there,

i want to loop through the days between two dates.
Any ideas how to solve this?

gpi

var d: TDateTime;
begin
     d := trunc(now);
     while d < trunc(now) + 3 do
       begin
         ShowMessage(DateToStr(d));
         d := d + 1;                                     
       end;                 
end.