porcentaje restante entre dos fechas - delphi

[rgstuamigo]

Empezado por amo3k

tengo que hacer que de un aviso cuando falte un 10% para que termine una cosa determinada entre dos fechas...

Personalmente no te entiendo muy bien lo que precisas hacer....
Explícate un poco mejor....
Saludos...

[marcoszorrilla]

A ver si es algo como esto:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
Var
dIni,dFin,dHoy:TDate;
nDias:Extended;
nQuedan:Extended;
nPorcien:Extended;
begin
dIni:=Date - 90;
dFin:=Date + 30;
dHoy:=Date;
nDias:=dFin - dIni;
nQuedan:=dFin - Date;
nPorcien:=nQuedan * 100 / nDias;
ShowMessage(FormatFloat('Porcentaje: '+'.00%',nPorcien));
end

Un Saludo.

[amo3k]

Buenas, siento contestar tarde.

De lo que se trata es que tego en la bd 2 fechas, la de inicio y la de fin.

Tengo que sacar el 10% de esas 2 fechas, mirando los dias.

Supongo que primero necesito sacar los dias que hay entre esas 2 fechas, y luego con ese numero de dias, sacar el 10%. Ahora el problema que tengo es que se me da mal el uso de fechas en delphi.

Como lo haria para sacar los dias de entre esas dos fechas?, luego supongo que calcular el 10% es un calculo normal.

Gracias por sus respuestas :-)

P.D: recordatorio ( uso adoquerys y access )

[DriverOp]

Tienes la función DaysBetween() para calcular cuántos días enteros hay entre dos fechas.

[amo3k]

Muchas gracias, ya me salio el calculo del 10%