Convertir numeros reales a grados, minutos, segundos

[compuin]

Hola amigos como estan?

Como puedo convertir este numero

221.0612010216

a grados, minutos y segundos, para que quede asi

221° 03'' 40'

Utilizo Delphi 7

Muchas gracias de antemano

[[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.

[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

[[escafandra]]

Empezado por compuin

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

12h 16' 56"

Es idéntico. Sólo cambia '° ' por 'h ' y listo.

Saludos.

[compuin]

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;

[[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.

[compuin]

Muchisimas gracias,

Funciono perfecto

[compuin]

Hola amigos,

Necesito una funcion para convertir un string, double a grados

Agradezco quien pueda proveermela

[Casimiro Notevi]

Hola, no crees un hilo nuevo para preguntar lo mismo, gracias.

[compuin]

Lo hice por error

Puedes borrarlo. Gracias

[Casimiro Notevi]

¿No has solucionado todavía tu duda? ¿tienes algún problema más con lo que te ha indicado escafandra?

[compuin]

Si, lo que pasa es que esa funcion no funciono