Operaciones algebraicas entre radianes y grados decimales

[ecfisa]

Hola.


Tu código con los valores que indicas,

Código Delphi [-]
...
var
  da, lt, decl : Extended;
begin
  lt   := 45.37638888888889; // => 45 22’ 35
  decl := 23.40388888888889; // => 23° 24' 15"
  da   := RadToDeg(sin(DegToRad(tan(DegToRad(lt))*tan(DegToRad(decl)))));
  ShowMessage(da.ToString);
  ...

da el resultado : 0,438539207272871 => 0° 26' 18.74115"

Saludos