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('%dh %d'' %d"',[d, trunc(m), trunc(s)]); end;
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('%dh %d'' %d"',[d, trunc(m), trunc(s)]); end;