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

[ecfisa]

Empezado por Darkseratul

Muchas gracias por tu pronta respuesta respuesta pero no entendí muy bien este código me contara los días??

y los campos que tengas mas de los 15 días se resaltaran en rojo ????

Muchas gracias por tu ayuda

De nada.

El código tál como te dije te pondrá en rojo aquellos registros (lineas) cuya fecha tenga más de 15 días a la fecha actual.

Del cálculo se encarga la function DaysBetween (unit DateUtils), que devuelve el número de días enteros entre dos valores declarados como TDateTime.

No interpreté que una línea pudiera tener varias columnas en rojo... si fuera así podrías probar el código que puso gatosoft. Por mi parte voy a pensarlo ...

Un saludo.

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