Convertir numeros reales a grados, minutos, segundos

[compuin]

Empezado por escafandra

Código Delphi [-]
function CurrToGra(Val: Extended): AnsiString;
var
  V: Currency;
begin
  Result:= IntToStr(Floor(Val)) + '° ';
  V:= (Val - Floor(Val)) * 60;
  Result:= Result +  IntToStr(Floor(V)) + #39 + #32;
  V:= (V - Floor(V)) * 60;
  Result:= Result +  CurrToStr(V) + #39 + #39;
end;

Saludos.

Muchas gracias,

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

12h 16' 56"


Saludos