Convertir numeros reales a grados, minutos, segundos

[[escafandra]]

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;

Saludos.