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

[Casimiro Notevi]

Un 10 para escafandra

[compuin]

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 ?

[[escafandra]]

Empezado por compuin

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.

[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

[Casimiro Notevi]

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

[Casimiro Notevi]

A mí me funciona:

[[escafandra]]

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.

[orodriguezca]

Empezado por compuin

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 ?

¿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".

[compuin]

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