PDA

Ver la Versión Completa : comparacion de un campo del DBGRID con Fecha.


pmpisani
24-07-2007, 21:28:31
Buenos dias, queria consultar como hacer una comparacion entre un campo "Date" de una tabla, con la fecha actual.
Tengo la Tabla con el campo "Fecha_Ingr", lo que quiero hacer es comparar si esa fecha es 10 dias menor a la fecha actual, de ser asi, pintar el registro del DBGRID de color rojo.
Se puede hacer esto? Si me pueden dar una mano se los agradeceria.. Muchas gracias por adelantado.:mad:

marcoszorrilla
24-07-2007, 21:36:38
Prueba este código:

procedure TfrConFacturas.DBGrid1ColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
dHoy:=Date;

if FacturaFecha.Value <= Date - 10 then
Begin
DBGrid1.Canvas.Brush.Color :=clInfobk;
DBGrid1.canvas.font.color:=ClRed;
DBGrid1.DefaultDrawColumnCell(Rect,Datacol,Column,State);
end
end;


Un Saludo.

pmpisani
24-07-2007, 22:41:05
Muchas Gracias por la pronta respuesta, me sirvio perfecto..
Un saludo!!:)