[Darkseratul]

hola compañeros del club delphi

tengo un problema a la hora de calcular fechas

tengo un campo con una fecha " 12/05/2011 " Día, Mes, año

como le hago para que el programa me cuente los días a la fecha actual

12/05/2011 que de esta fecha empiece a contar hasta 102 días hasta la fecha actual

campo fecha "12/05/2011" y en una label me diga van 24 días y quedan 81

en resumen que compare la fecha actual con el del campo y que me de resultado los dias que van de los 102

buscando en el foro me encontré este código

pero no se como aplicarlo

Código Delphi [-]
procedure TFPrincipal.DBGListarAgendaDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
   //  Confirmo en la bd si se cumple una de las alarmas
   if Column.Field.Dataset.FieldbyName('alarma1').AsInteger = 1 then
      begin
         if (gdFocused in State) then
            DBGListarAgenda.canvas.brush.color := clBlack
         else
         begin
         //Pinto el color que quiero pa la alarma
         DBGListarAgenda.canvas.brush.color := clColorAlarma1;
         end;
      end;

este código es para un dbGrid

espero que me puedan ayudar gracias