[ecfisa]

Hola.

Empezado por compuin

..., la idea es poder hacerlo en un solo llamado pero que calcule y retorne los resultados de los planetas de una vez

Código Delphi [-]
procedure CargarPlanetas(var VP: TvPlanetas);
begin
  VP[1] := LBR_For_Sun(At_JDE,L,B,R);
  VP[2] := LBR_For_Mercury(At_JDE,L,B,R);
  VP[3] := LBR_For_Venus(At_JDE,L,B,R);
  VP[4] := LBR_For_Earth(At_JDE,L,B,R);
  VP[5] := LBR_For_Mars(At_JDE,L,B,R);
  VP[6] := LBR_For_Jupiter(At_JDE,L,B,R);
  VP[7] := LBR_For_Saturn(At_JDE,L,B,R);
  VP[8] := LBR_For_Uranus(At_JDE,L,B,R);
  VP[9] := LBR_For_Neptune(At_JDE,L,B,R);  
end;

Saludos