Ver Mensaje Individual
  #5  
Antiguo 16-06-2010
Avatar de Caro
*Caro* Caro is offline
Moderadora
 
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Reputación: 24
Caro Va por buen camino
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
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.
Responder Con Cita