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

[ecfisa]

Para tu desilusión, me quedo con la parrillada.


Un saludo.

[Casimiro Notevi]

Empezado por ecfisa

Para tu desilusión, me quedo con la parrillada.
Un saludo.

¡¡¡ Aunque le cueste dinero !!!

[Darkseratul]

Gracias

El código va de perlas pero mmm tengo un detalle con el código de ecfisa

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;

me da un error cuando unos de los campos(cual sea) esta vació me dice que el campo debe estar lleno como le hago para que los campos que no tengan información(fechas) no los tome en cuenta

[ecfisa]

Hola Darkseratul.

Tenés que agregar una línea al condicional:

Código Delphi [-]
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if (Column.Field.AsString > '') and
     (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.

[Darkseratul]

Eres una persona genial lastima que vivas tan lejos sino parranda segura contigo y pues mil gracias tu si que te la sabes de todas

estoy muy agrede sido contigo y con esta maravillosa comunidad

gracias gracias gracias