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

Сравнение дат   Найти похожие ветки 

← →
D@Nger ©   (2006-06-08 12:46) [0]

Всем привет! Сравниваю две даты, но условие не срабатывет, хотя точно уверен что должно сработать. Перед сравнением вывожу на экран сравниваемые даты.

Как правильно сравнивать даты, может я что то не так делаю?

procedure TFRepSettings.DataPeriod(start,finish:TDate);
var data:Tdate;
begin
 ....
data:=fieldbyname("data").AsDateTime;
showmessage("data= "+datetostr(data)+" start= "+datetostr(start_date)+"  finish= "+datetostr(finish_date));
 if (data>=start)and(data<=finish) then
 begin
      showmessage("Условие сработало");
 end;
 ....
end;

---

← →
Sam Stone ©   (2006-06-08 12:49) [1]

Наверняка мешает время.
function CompareDate(const A, B: TDateTime): TValueRelationship;
function CompareDateTime(const A, B: TDateTime): TValueRelationship;

---

← →
antonn ©   (2006-06-08 13:03) [2]

trunc() уберет время:)

---

← →
D@Nger ©   (2006-06-08 13:06) [3]

Большое спасибо! Помогло.

---

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

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



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