Главная страница
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.037 c
14-1079782302
SPeller
2004-03-20 14:31
2004.04.11
С++


7-1075719213
Creator
2004-02-02 13:53
2004.04.11
как работать с COM портами ???


1-1080130326
Th
2004-03-24 15:12
2004.04.11
Библиотека строковых функций


14-1082505360
sashko
2004-04-21 03:56
2004.04.11
Разработка интернет-приложений в Delphi


1-1082626363
Sergey__
2004-04-22 13:32
2004.04.11
Как сделать чтобы текст плавно передвигался по Cavans-у формы