Iterate date / loop through dates

Christoph AustChristoph Aust
edited 11:06AM in FastReport VCL 5
Hi there,

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

Comments

  • gpigpi
    edited 11:06AM 
    var d: TDateTime;
begin
     d := trunc(now);
     while d < trunc(now) + 3 do
       begin
         ShowMessage(DateToStr(d));
         d := d + 1;                                     
       end;                 
end.

Leave a Comment

Rich Text Editor. To edit a paragraph's style, hit tab to get to the paragraph menu. From there you will be able to pick one style. Nothing defaults to paragraph. An inline formatting menu will show up when you select text. Hit tab to get into that menu. Some elements, such as rich link embeds, images, loading indicators, and error messages may get inserted into the editor. You may navigate to these using the arrow keys inside of the editor and delete them with the delete or backspace key.

Home • FastReport VCL 5Comment As ...

© Vanilla Keystone Theme 2025