Работа с датой(непонятки)

[diekster]

Всем доброго вечера. Экстренно прошу подтолкнуть на ясную мысль.
И так по порядку имеется типизированный файл типа :

otchet=record
    id:0..5;
    name:string[7];
    date:Tdate;
    time:Ttime;
    pribyl:real;
    rashod:real;
  end;
 
var
  tipo:file of otchet;
  po:otchet;

На форме расположен Stringgrid,и два DateTimePicker. В первом DateTimePicker'e выбераем с какой даты нужно подсчитывать прибыль от продаж , во Втором соответственно по какую, сумму вывести в таблицу.
Не получается сделать диапазон сравнения. например, первая продажа была 7 декабря выбираю даты с 7.12.12 по 7.12.12 у меня ничего не подсчитывает. Но стоит выбрать в первом DateTimePicker'e дату 6 подсчитывает продажи за 7 число. Подскажите как сделать так что бы считалось включительно?? Очень срочно.

кусок кода как я делал :

fordate:=datetimepicker1.Date;
todate:=datetimepicker2.Date;
rashod:=0;
pribyl:=0;
i:=0;
while (not(eof(tipo))) do
begin
seek(tipo,i);
read(tipo,po);
i:=i+1;
if po.id=0 then
  if (fordate<=po.date)and(todate=>po.date)then
  begin
    rashod:=rash80+po.rashod;
    pribyl:=pribyl+po.pribyl;
  end;
end;
 
Cells[2,1]:=floattostrf(rashod,fffixed,5,2);
Cells[3,1]:=floattostrf(pribod,fffixed,5,2);

[Luuzuk]

Есть подозрение, что "fordate" и "todate" содержат в себе помимо даты еще и информацию о времени. Проверьте в отладчике, не так ли это?
Если так, то необходимо оттуда только дату выцепить перед сравнением

[diekster]

Вот что показал обработчик

[Luuzuk]

Дробная часть - это и есть время. Его необходимо отбросить, после этого ваша программа должна сменить поведение на более адекватное

[Serge_Bliznykov]

Luuzuk, +1

diekster,
достаточно вместо:
fordate:=datetimepicker1.Date;
todate:=datetimepicker2.Date;

написать:

fordate:= Trunc( datetimepicker1.Date );
todate:= Trunc( datetimepicker2.Date);