[lucho6007]

Empezado por compuin

Código Delphi [-]
function TimeToStr(angle:extended):string; 
var   d : integer;   m, s : extended; begin   d:= Trunc(angle);   m:= abs(frac(angle)*60);   s:= Round(abs(frac(m)*60));   Result:= format('%2dh %2d'' %2d"',[d, trunc(m), trunc(s)]); end;

Probá con ese código