Código Delphi [-] function AngleToStr(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('%d° %d'' %d"',[d, trunc(m), trunc(s)]); end;
function AngleToStr(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('%d° %d'' %d"',[d, trunc(m), trunc(s)]); end;