Mostrar cifras completas y rellenar con 00

[compuin]

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

Código Delphi [-]
244° 9' 1"

Necesito mostrarlos de esta forma y que a su vez muestre la fracccion de los segundos

Código Delphi [-]
244° 09' 01.35"

Gracias una vez mas

Saludos

[ecfisa]

Hola

Intenta de con este formato:

Código Delphi [-]
function AngleToStr(angle: Extended):string;
...
  Result := Format('%.2d° %.2d'' %.2d"',[d, trunc(m), trunc(s)]);
end;

Saludos

[compuin]

Perfecto, es lo que necesitaba

Muchas gracias

[compuin]

Y para que me de los segundos con fraccion ??

Código Delphi [-]
244° 09' 01.35"

[ecfisa]

Hola.

Código Delphi [-]
function AngleToStr(Angle: Extended):string;
var
  m,s : Extended;
begin
  m := Abs(Frac(Angle) * 60);
  s := Abs(Frac(m) * 60);
  Result := Format('%.2d° %.2d'' %2.2f"',[Trunc(Angle), Trunc(m), s]);
end;

Saludos

[compuin]

Muchas gracias