[compuin]

Empezado por compuin

Muchas gracias,

Tambien necesito convertir ese mismo numero a valor de Hora, minuto y segundo, de esta forma

12h 16' 56"


Saludos

Muchas gracias,

Ya para finalizar, estoy usando esta funcion y me esta devolviendo los segundos en fracciones, pero necesito redondearlos

221° 3' 40.32" asi, 221° 3' 40"


Aca la funcion

Código Delphi [-]
function AngleToStr(angle:extended):string;
var
  D:integer;
  M,S:extended;
  begin
     d:=Trunc(angle);
     m:=abs(frac(angle)*60);
     s:=abs(frac(m)*60);
     m:=int(m);
     Result:=format('%3d° %2d'' %2f"',[d,trunc(m),s]);
end;