dias totales de una fecha

[marcoszorrilla]

No veo claro lo que expones.

No será:

Código Delphi [-]
Duracion:=Fecha_Actual - Fecha_inicial;

Mejor amplía un poco la información.

Un Saludo.

[Nereida]

Empezado por marcoszorrilla

No veo claro lo que expones.

No será:


Código Delphi [-]Duracion:=Fecha_Actual - Fecha_inicial;




Mejor amplía un poco la información.

Un Saludo.

Me voy a explicar mejor, q las explicaciones reconozco que no son lo mio, asi que mejor pongo un ejemplo para que se entienda:
tengo un programa que compré un dia (fecha_inicial) y que caduca la licencia dentro de x años (duración). Lo que yo quiero saber es cuántos dias faltan para que caduque el programa desde la fecha en la que me encuentro:
(fecha_inicial * duracion) - fecha_actual

[*Caro*]

Hola Nereida, puedes hacerlo de esta forma.

Código Delphi [-]
var
 CantDias : Integer;
 FchCaducidad : TDateTime;
begin
 //Añadimos la cantidad de años a la fecha inicio
 FchCaducidad := IncYear(fecha_inicial, duracion);

 //Calculamos la cantidad de dias entre las dos fechas
 CantDias := DaysBetween(fecha_actual,FchCaducidad);
end;

Saluditos

[Nereida]

Muchisimas gracias Caro, lo termino de hacer asi y me funciona genial.

Así no he tenido que compliarme tanto la vida.

Gracias =D

Saludos