Calcular tiempo restante y mostrar en porcentaje

[ecfisa]

Hola alquimista.

Usar las funciones de Delphi, como ya te lo comentó duilioisola, es más simple y seguro.

Pero veo que en este cálculo tenés un error:

Código Delphi [-]
DurTotal:=(SEDay.Value*3600*60+SEHour.Value*3600+SEMin.Value*60)*1000;

No es: SEDay.Value * 3600 * 60, ya que el día tiene 24 horas y no 60. Lo que correspondería es: SEDay.Value * 24 * 3600.

Seguramente sea eso lo que te genere el error.

Saludos.

[alquimista]

He modificado el error de las 24 horas.. y he puesto 1 dia y 1 minuto y al pasar el minuto me muestra que quedan las 24 horas restantes. Parece que esto va bien...
aunque antes ya habia desactivado el spinedit de los dias... y lo del porcentaje no me iba bien...


EStoy probando lo del encodedatetime...
Vamos estoy reescribiendo con otras variables para ir comparando los valores antiguos y los nuevos...

[alquimista]

Bueno...
vale...
Me falta lo del porcentaje para una barra de progreso....
¿Que hago ahora?.. paso el str a numero otra vez y lo multiplico por 10000000000 ?? No me queda muy claro...

Ya he trabajado con las funciones de delphi y he rehecho las rutinas
Lo he solucionado de esta forma..

Por si a alguien le sirve....

Código Delphi [-]

function MostrarRestante(const Ini,Fin: TDateTime): string;
var
  d,h,m,s: Word;
begin
  d:=0;
  if DaysBetween(Ini,Fin) > 0 then
    d:= DaysBetween(Ini, Fin);
  h:= HourOf(Ini - Fin);
  m:= MinuteOf(Ini - Fin);
  s:= SecondOf(Ini - Fin);
  Result:= Format('%2d dia(s) %.02d:%.02d:%.02d',[d,h,m,s]);
end;
.......
var AinicioCap, AFinCap:Tdatetime;
.......
        AInicioCap:=Now;
        AfinCap:=IncDay(AinicioCap, trunc(SEDay.Value)); // Sumo dias a la fecha actual
        AfinCap:=IncHour(AfinCap, trunc(SEHour.Value)); //Sumo horas
        AfinCap:=IncMinute(AfinCap, trunc(SEMin.Value)); //Sumo minutos

        Edit1.Text:=Datetimetostr(AfinCap);

.......

        Edit2.Text:=Mostrarrestante(Now,AfinCap);
..... 
        str:=Floattostr(AFinCap);   // ej.- 46789,2345677883

......
        if Now>=AfinCap then termina

Si me podeis poner algún ejemplo de lo del porcentaje..

Gracias por la ayuda...

[ecfisa]

Hola.

Poné en un form un TTimer un TProgressBar y un TLabel y probá si este código hace más o menos lo que buscas:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    ProgressBar1: TProgressBar;
    Label1: TLabel;
    procedure Timer1Timer(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    FLapsoIni: Int64;
    FDTIni: TDateTime;
  public
  end;

var
  Form1: TForm1;

implementation {$R *.dfm}

uses DateUtils;

function ObtenerLapso(const Ini,Fin: TDateTime): Int64;
var
  h,m,s: Word;
begin
  h:= 0;
  if DaysBetween(Ini,Fin) > 0 then
    h:= DaysBetween(Ini, Fin) * 24;
  h:= h + HourOf(Ini - Fin);
  m:= MinuteOf(Ini - Fin);
  s:= SecondOf(Ini - Fin);
  Result:= h*3600+m*60+s;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
{ Aca tendrías que asignar a FDTIni los valores de los SpinEdits,
  para simplificar el ejemplo lo asigno directamente sumando 2 minutos }
  FDTIni:= IncMinute(Now, 2); //  sumo 2 minutos
  FLapsoIni:= ObtenerLapso(Now, FDTIni); // Obtener lapso inicial
  Timer1.Enabled:= False;
  Timer1.Interval:= 1000;
  ProgressBar1.Max:= FLapsoIni;
  ProgressBar1.Step:= 1;
  Timer1.Enabled:= True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  LapsoAct: Int64;
begin
  LapsoAct:= ObtenerLapso(Now, FDTIni); // Obtener estado actual
  ProgressBar1.StepIt;
  Label1.Caption:= Format('%3.0f %%',[100-LapsoAct/FLapsoIni*100]);
  if  LapsoAct <= 0 then
  begin
    Timer1.Enabled:= False;
    MessageBeep(MB_ICONEXCLAMATION);
  end;
end;

end.

Como verás las pruebas las hice con minutos, si usaba días u horas estaría más seguro, pero la respuesta hubiera llegado un poco tarde...

Saludos.

[[duilioisola]]

Regla de tres simple:

Tiempo_Inicial = Hora de Comienzo
Tiempo_Final = Hora de Finalizacion
Total_Tiempo = Tiempo_Final - Tiempo_Inicial
Tiempo_Transcurrido = Now - Tiempo_Inicial

Total_Tiempo -------- 100%
Tiempo_Transcurrido --- x%

x = (Tiempo_Transcurrido x 100%) / Total_Tiempo

[alquimista]

El problema es que al ver el pedazo de numero que me daba no sabia como manejarlo.
La idea de obtenerlo en minutos reduce el numero y simplifica..

Gracias, a probar y ya os comento..

Un saludo a todos

[alquimista]

Gracias ecfisa, tu solución me ha funcionado al 100% de progreso.

Lo mejor de todo es que las modificaciones que me habeis comentado me han hecho comprender mejor lo de las fechas y es mas !!! lo he entendido!!!


Un saludo a todos. Sois los mejores.