Calcular tiempo restante y mostrar en porcentaje

[alquimista]

Muy buenas...

Estoy usando variables tipo TdateTime, para medir tiempo de adquisicion de datos.

Uso durTotal para duración total de datos
Luego comparo con la fecha y hora actual. hago la resta
if (Now()>=DurTotal) then termino captura.

Cuando muestro tiempo restante (durTotal -now) si la duracción total supera en unas 12 horas o un dia me la muestra mal.

Y como puedo hacer que se muestre en porcentaje (como son valores (tdatetime) con muchos decimales no se como hacerlo) para usar una progressbar

Un saludo...

[afxe]

No sé que versión de delphi tienes, pero si es superior a la 6 échale un vistazo a la libreria DateUtils, creo que tiene lo que buscas.

Saludos.

[[newtron]]

Hola.

No lo comentas en tu mensaje pero imagino que estarás usando FloatToStr(now) para trabajar con las fechas en modo numérico, esto te da un número con 10 decimales que si lo multiplicas por 10000000000 te da un número entero con lo que podrás trabajar.

Espero que te sirva.

Saludos

[ecfisa]

Cuando muestro tiempo restante (durTotal -now) si la duracción total supera en unas 12 horas o un dia me la muestra mal.

Hola.

Para mostrar más de 24 horas sin que te un resultado erróneo:

Código Delphi [-]
uses DateUtils;
function MostrarHoras(const Ini,Fin: TDateTime): string;
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:= Format('%3d hr %3d min %3d seg',[h,m,s]);
end;

Ejemplo de llamada:

Código Delphi [-]
var
  d1,d2: TDateTime;
begin
  d1:= StrToDateTime('29/4/2011 09:03:01');
  d2:= StrToDateTime('04/5/2011 10:15:12');
  ShowMessage(MostrarHoras(d1,d2)); // resultado: 121 hr 12 min 11 seg
end;

Y en cuanto a obtener los valores para usar en un ProgressBar, newtron ya te ha dado la solución.

Saludos.

[alquimista]

Muchas gracias....

Voy a probar... Si... Me salian numeros flotantes

Estoy usando SpinEdits indicando Dias, Horas y minutos, para calcular la duración total

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

// esto lo uso para pasar a Time
       DurTotal:=Durtotal/ MSecsPerSec / SecsPerDay;

Hay alguna forma de manejarlo mejor. Esto me funciona pero me parece complicado.

Ya os comentare lo del 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.