Сравнение дат

← →
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() уберет время:)

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

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