!!!Comparación de Fechas en una aplicación!!!

[ecfisa]

Hola de nuevo DarkSeratul.

Lo prometido es deuda. Este código pone en rojo sólo aquellas celdas que contengan un TDateTimeField y su valor supere los 15 días a la fecha:

Código Delphi [-]
uses DateUtils;

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if (Column.Field is TDateTimeField)and
      (DaysBetween(Now,Column.Field.Value) > 15) then
  begin
     DBGrid1.Canvas.Brush.Color:= clRed;
     DBGrid1.Canvas.Font.Color:= clWhite;
     DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
  end;
end;

Un saludo.