[ecfisa]

Hola zeta2.

Código Delphi [-]
procedure TForm1.DBGridDrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
const
  CCOLOR : array [Boolean] of TColor = (clLime, clMoneyGreen);
begin
  with Sender as TDBGrid do
  begin
    if Column.Field.FieldName = 'Hora_de_Entrada' then  // Nombre del campo DateTime
      Canvas.Brush.Color := CCOLOR[Frac(Column.Field.AsDateTime) > 0.5];
    DefaultDrawColumnCell(Rect, Datacol, Column, State);
  end;
end;

Saludos.