Скачать: CL | DM;

Как организовать цикл с датой   Найти похожие ветки 

← →
s_pantera   (2004-04-19 14:27) [0]

Здравствуйте. Как можно организовать такой цикл:
Есть начальная дата и конечная
Нужно выполнить цикл от StartDate to EndDate с шагом в один день. Как это реализовать. Если можна пример кода. Заранее благодарен.

---

← →
[lamer]Barmaglot ©   (2004-04-19 14:33) [1]

Стыдно батенько не знать такого...


procedure TForm1.Button1Click(Sender: TObject);
var
 DT:   TDateTime;
 k:    integer;
begin
DT:=Now;
For k:=1 to 5 do
 begin
 DT:=DT+1;
 ListBox1.items.Add(DateTimetoStr(DT));
 end;
end;


---

← →
VAleksey ©   (2004-04-19 14:36) [2]

Var
 d1,
 d2:TDate;
 i:Integer;
begin
 d1:=StrToDate("01.01.2004");
 d2:=StrToDate("31.01.2004");
 for i := Integer(Round(d1)) to Integer(Round(d2)) do
   begin
     ShowMessage(DateToStr(I));
   end;
end;

---

← →
s_pantera   (2004-04-19 14:37) [3]

Да, немного стыдновато. Оказалось просто.
Большое вам спасибо.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.047 c