Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.11;
Скачать: 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 вся ветка

Текущий архив: 2004.04.11;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.035 c
14-1082143031
juiceman
2004-04-16 23:17
2004.04.11
Я так устал...


7-1075971249
liv
2004-02-05 11:54
2004.04.11
пользова тели на сервери домена


1-1079822293
НерВ
2004-03-21 01:38
2004.04.11
Автозагрузка приложения


1-1082957632
voprosik
2004-04-26 09:33
2004.04.11
Динамический PopUp


1-1082621797
[BAD]Angel
2004-04-22 12:16
2004.04.11
onTop