!!!Duda sobre cálculos de fechas !!!

[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

[ecfisa]

Hola Darkseratul.

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

Hasta aqui voy bien:

Código Delphi [-]
uses DateUtils;
...
var
  NroDias: Integer;
begin
  NroDias:= DaysBetween(Now,StrToDate('12/05/2011'));
  ...
end;

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

Esto último no lo entiendo en absoluto.


Saludos.

[Casimiro Notevi]

Empezado por ecfisa

Esto último no lo entiendo en absoluto.

Por eso no contesta nadie, porque no hay quien entienda la pregunta

[*Caro*]

Hola, creo que lo que quiere es sumarle 102 dias a la fecha que tiene almacenada y en base a la fecha actual ver cuantos días han pasado y cuantos le faltan para llegar a esa fecha, creo que es eso, pero tampoco entiendo bien su pregunta.

Código Delphi [-]
var
 Fecha, FechaS: TDateTime;
 DiasP, DiasF : Integer;
begin
 Fecha := DataSet.FieldByName('fecha').AsDateTime; 
 FechaS :=IncDay(Fecha, 102);
 
 DiasP := DaysBetween(Now, Fecha);
 DiasF := DaysBetween(FechaS, Now); 
 
 Label.Caption := 'Han pasado :'+IntToStr(DiasP)+' días faltan '+IntToStr(DiasF)+' días'+;

Saluditos

[Darkseratul]

Si se que no me se explicar pero no sabia como hacerlo disculpen

Pues miren

tengo una fecha de inicio que el usuario captura, para el sistema es la fecha de inicio

para hacer lo que necesito he pensado en tres cosas la fecha de inicio, la fecha actual (es la fecha el día) y un dato que son 102

me explico con una imagen a ver si me doy a entender



es algo asi espero que me den una idea de como hacerlo

[[oscarac]]

quiza esto te pueda ayudar