Hola Foro, nuevamente yo por aca
Tengo esta funcion para obtener la posicion en grados, minutos y segundos de cualquier planeta
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;
Aunque funciona bien me muestra los valores de esta manera
Necesito mostrarlos de esta forma y que a su vez muestre la fracccion de los segundos
Gracias una vez mas
Saludos