[ecfisa]

Hola.

Código Delphi [-]
function AngleToStr(Angle: Extended):string;
var
  m,s : Extended;
begin
  m := Abs(Frac(Angle) * 60);
  s := Abs(Frac(m) * 60);
  Result := Format('%.2d° %.2d'' %2.2f"',[Trunc(Angle), Trunc(m), s]);
end;

Saludos