DBgrid и цвет строки

[spotip]

Здравствуйте уважаемые. Помогите подправить этот код, в нём всё устраивает, только нужно по времени выделять не одну строку dt а всю строку в DBGride, и ещё вопрос если мне надо не 1 день разница а к примеру 30 минут почему не работает 0.03, когда я задаю в условие :

procedure TForm1.DBGridEh3DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumnEh;
  State: TGridDrawState);
var
  day, month, year : word;
begin
  if Column.Field.FieldName = 'dt' then begin
    DecodeDate( Column.Field.AsDateTime, year, month, day );
    if (Column.Field.AsDateTime < Now) and
      (DaysBetween(Now, EncodeDate( YearOf(Now), month, day )) = 1) then
    TDBGrid(Sender).Canvas.Brush.Color := $008080FF;
  end;
  TDBGrid(Sender).Canvas.FillRect(Rect);
  TDBGrid(Sender).Canvas.TextRect(Rect,Rect.Left+2,Rect.Top+2,Column.Field.Text);
end;

[northener]

только нужно по времени выделять не одну строку dt а всю строку в DBGride

Проверяй значение поля 'dt' в текущей записи набора данных.

если мне надо не 1 день разница а к примеру 30 минут почему не работает 0.03

А почему оно должно работать? DaysBetween возвращает целое количество дней между двумя датами.

[spotip]

Проверяй значение поля 'dt' в текущей записи набора данных.

если можно пример покажите.

[Serge_Bliznykov]

примерно так:

var
  curDT : TDateTime;
begin
    curDT := (Sender as TDBGridEh).DataSource.DataSet.FieldByName('dt').AsDateTime;
    if (curDT < Now) and (MinutesBetween(Now, curDT)<=30) 
             {событие dt прошло и время от события dt до наст.времени прошло до 30 минут } 
          then begin ...
          end;

[spotip]

Serge_Bliznykov
Спасибо за помощь, всё получилось просто изменил:

if (curDT <> Now) and (MinutesBetween(Now, curDT)> 30)