Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   porcentaje restante entre dos fechas - delphi (https://www.clubdelphi.com/foros/showthread.php?t=66292)

amo3k 11-02-2010 21:21:57

porcentaje restante entre dos fechas - delphi
 
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 11-02-2010 21:44:16

Cita:

Empezado por amo3k (Mensaje 353722)
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 11-02-2010 21:51:25

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 11-02-2010 21:52:57

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 13-02-2010 14:14:04

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 13-02-2010 15:11:55

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

amo3k 13-02-2010 16:08:54

Muchas gracias, ya me salio el calculo del 10% :D


La franja horaria es GMT +2. Ahora son las 09:30:10.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi