Calcular tiempo restante y mostrar en porcentaje

[alquimista]

No me funciona....
No se que estoy haciendo mal..

uso directamente fechas en Tdatetime. perdon!!!!! DurTotal es Extended;
No uso los dias en string directamente...
Uso dias, horas, minutos en Spinedits y los convierto a mano en tdatetime con la formula anterior. A lo mejor no lo hago bien??? Lo curioso es que me funciona bien al comparar.
Comienzo la captura InicioCap=hora actual) le añado la DurTotal(la que paso con los SpinEdits) y comparo Now>=DurTotal (esto dentro de un timer)

Código Delphi [-]
InicioCap:=Now();
 DurTotal:=InicioCap+DurTotal;
 ....      if (Now()>=DurTotal) then acabar

[[duilioisola]]

Lo mejor es que utilices las funciones que te da Delphi, siempre que puedas.
Si cambias de version de Delphi, es más seguro que puedas compilar sin problemas. También si quieres pasar el código a FreePascal / Lazarus por ejemplo.
Puede que cambie la representación interna de un TDateTime (parte entera días, parte decimal horas) a otra diferente. Si utilizas funciones, solo deberás reemplazar o reprogramar la función, si es que la nueva versión no lo ha hecho ya.

Mira estas dos de la Unit DateUtils:

Código Delphi [-]
function EncodeTime(Hour, Min, Sec, MSec: Word): TDateTime;
function EncodeDateTime(const AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word):TDateTime;

Deberás tirar los datos de los SpinEdit dentro de los parámetros correspondientes de la función y obtendrás un TDateTime.

[alquimista]

Estaba pensando en rediseñar y usar las funciones de delphi..

Uso Delphi 2007 por lo que no tendre problemas...
Lo que pasa que hay tantas funciones que tiene para fechas que no sabia por donde empezar...

[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