!!!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.

[Darkseratul]

Si eres mujer te besaría y si eres hombre te invitaba a una parrilla da con cervezas incluidas

sabes me has dado una parte de la solución a un problemas muy grande que tengo
gracias al dato que mas dado ya tengo idea de como hacer el resto de mi aplicación ya solo falta estructurarlo y aplicar la solución a mas de 40 campos muy bueno espesare ha aplicarme y mañana te comento como me fue y pues muchas gracias ecfisa muchisimas gracias

cuando mi aplicación este lista la subiré al club para compartirla con todos

gracias,gracias,gracias,gracias,gracias,gracias,gracias,gracias,gracias,gracias,

[ecfisa]

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


Un saludo.

[Casimiro Noteví]

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