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

TDateEdit   Найти похожие ветки 

← →
Mister ©   (2004-05-06 23:57) [0]

товарищи, есть два компонента TDateEdit, показывают дату в таком виде 06.05.2004, как написать такой цикл, чтобы он считал от даты одного компонента до даты другого, заранее спасибо!

---

← →
Jack128 ©   (2004-05-07 00:02) [1]

не знаю, что за TDateEdit, но подозреваю, что у него есть свойство Date
var
 LoopDate: TDateTime;
begin
 LoopDate := DateEdit1.Date;
 while LoopDate <= DateEdit2.Date do
 begin
   // Что то делаешь с LoopDate
   ...
   LoopDate := LoopDate + 1;
 end;
end;

---

← →
Mister ©   (2004-05-07 00:19) [2]

не удается прибавить единицу к дате(

---

← →
Mister ©   (2004-05-07 00:35) [3]

а, нет, все прибавляется, спасибо!

---

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

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



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