porcentaje restante entre dos fechas - delphi

[amo3k]

tengo que hacer que de un aviso cuando falte un 10% para que termine una cosa determinada entre dos fechas, y me estoy comiendo la cabeza tela marinera.

a ver si me podeis dar alguna idea y el calculo para poder sacar ese tanto por ciento.

Uso dephi y base de datos access.

Muchissimas gracias otra vez :-)

[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...

[[Caral]]

Hola
Pues no se exactamente en porcentaje ya que los meses tienen varios dias dependiendo del mes y año.
Lo que yo haria no seria por porcentaje sino por tiempo/fecha.
Tengo en la BD dos fechas:
Fecha inicio: 12/01/2010
Fecha Fin: 12/02/2010
Quiero que me avise un 10% antes, osea mas o menos 3 dias, entonces.

Código Delphi [-]
Var Fecha: Tdate
Begin
  Fecha:= Now;
  query1.sql.text:= 'Select FechaFin Form mitabla';
  Query1.Open;
   If Fecha = (Query1.filebyname('FechaFin').AsDate - 3) then
  ShowMessage('Tiempo');
  End;

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%