Cita:
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;