Convertir numeros reales a grados, minutos, segundos
 

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

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

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

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;

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.

Muchisimas gracias,

Funciono perfecto

Un 10 para escafandra :)

Si, ha sido de mucha ayuda aunque la funcion que me dio para convertir los numeros reales a formato hora, minuto segundo no me funciona correctamente

El valor a convertir es 7.8203608719

me resulta 7h 49' 13"

siendo 12h 16' 56" el valor correcto

Alguna sugerencia ?

Es que 7.8203608719 son 7h 49' 13,44''


Saludos.

Convertir a grados
 

Hola amigos,

Necesito una funcion para convertir un string, double a grados

Agradezco quien pueda proveermela

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

Lo hice por error

Puedes borrarlo. Gracias

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

Si, lo que pasa es que esa funcion no funciono

"No funcionó" no sirve para nada, tienes que decir qué es lo que no funcionó, qué error sale, en qué línea, poner tu código, etc.
No olvides nuestra guía de estilo, gracias.

A mí me funciona:

Efectivamente. 7.8203608719 h son 7h 49' 13". Sólo dará otro resultado si el dato dado no son horas, en tal caso y sin más información no se puede dar otra respuesta.

Saludos.

¿Que tipo de operación o transformación convierte 7.8203608719 en 12h 16' 56"?. Probé haciendo conversiones de decimal a sexagesimal, de decimal a horas e incluso de radianes a grados sexagesimales y en ningún caso obtuve ese resultado. Sería de mucha ayuda saber bajo que circunstancias el resultado correcto es 12h 16' 56".

Hola, estaba calculando mal

Finalmente puse la function de esta manera y se corrigio el problema

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

Muchas gracias