[ecfisa]

Hola.

Esta traducción se corresponde con la información que brindas y no te va a dar errores de compilación siempre que traduzcas bien las funciones Venus_... , pero me es imposible saber si devuelve los valores correctos desconociendo que es lo que hace.

Código Delphi [-]
function LBR_For_Venus(LBR_For_Venus(At_JDE:extended): string;
var
  L,B,R,T: Double;
begin
  T := (At_JDE - 2451545) / 365250;
  L := Venus_L01(T) + Venus_L11(T) + Venus_L21(T) + Venus_L31(T) +
       Venus_L41(T) + Venus_L51(T);
  B := Venus_B01(T) + Venus_B11(T) + Venus_B21(T) + Venus_B31(T) +
       Venus_B41(T) + Venus_B51(T);
  R := Venus_R01(T) + Venus_R11(T) + Venus_R21(T) + Venus_R31(T)  +
       Venus_R41(T) + Venus_R51(T);
  L := L * 45 / ArcTan(1);
  if Abs(L) >= 360 then
    L := L - 360 * Int(L / 360);
  if L < 0 then
    L := L + 360;
  B := B * 45 / ArcTan(1);
  Result := FloatToStr(L) + '|' + FloatToStr(B)+ '|' + FloatToStr(R);
end;

Saludos