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;