Variable que suma mas de 24h

[Delphitest]

A que te refieres?

Te importa ponerme un ejemplo para hacerme una idea, me pierdo con esto y le estoy dando vueltas sin obtener resultado.

Suponemos que tengo dos campos tipo Time, que llamo horas1 y horas2

Quiero que una variable sume los dos campos de tal manera que:

horas1 = 23:00
horas2 = 21:00

Necesito una variable que de por resultado 44:00

Si esa variable la defino tipo TTime el resultado es 20:00

[[mightydragonlor]]

pues usas un Integer, que suma muchisimo, y luego pues divides entre 24 y ya

[*Caro*]

Hola Delphitest, puedes utilizar el tipo Real, en el resultado de la suma, la parte entera te dara los días y la parte decimal las horas, a la cantidad de dias le multiplicas por 24 .....

Código Delphi [-]
var
 h1, h2 : TTime;
 dias, horas, suma : Real;
 Hour, Min, Sec, MSec: Word;
begin
 h1 := StrToTime('23:00');
 h2 := StrToTime('21:10');

 suma := h1 + h2;
 
 dias := Int(suma);//obtenemos la parte entera
 horas := Frac(suma); //la parte fraccionaria
 
 DecodeTime(suma, Hour, Min, Sec, MSec); //descomponemos
 
 dias := dias*24 + Hour;
 
 showmessage(FloatToStr(dias)+' : '+IntToStr(Min));

De esa forma tomamos en cuenta los minutos, segundos....

Saluditos

[Delphitest]

Muchisimas gracias Caro

funciona con lo que me dices a la perfección.

Para rizar el rizo ¿es posible ver siempre la hora y minutos con dos digitos?

Veo que cuando aparece por ejemplo 3h pone 3:0

¿Es posible ver 03:00?

No tiene demasiada importancia pero quedaría mas presentable en el informe. Si no lo dejo como está porque el cálculo está correcto.


Un saludo

[*Caro*]

Empezado por Delphitest

Para rizar el rizo ¿es posible ver siempre la hora y minutos con dos digitos?

Si se puede, para ello puedes utilizar la función Format:

Código Delphi [-]
showmessage(FloatToStr(dias)+' : '+Format('%0.2d',[Min]));

Saluditos

[*Caro*]

Otra cosita que se me olvidaba, para la parte de las horas debes aplicar la función Trunc para que te devuelva como entero.

Código Delphi [-]
  showmessage(Format('%0.2d',[Trunc(dias)])+' : '+Format('%0.2d',[Min]));

Saluditos

[Delphitest]

Solución rápida y eficaz

Muchas Gracias, ya lo he implantado y funciona a la perfección.