Pero si lo usamos así:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
i, iflag: integer;
xx: array[0..5] of double;
planet: array [1..12] of double;
serr: PChar;
JulDay: double;
begin
JulDay:= DateTimeToJulianDate(Date);
iflag := 0;
for i:= 1 to 12 do
begin
swe_calc(Date, i, iflag, xx[0], serr);
planet[i]:= xx[0];
end;
end;
Entonces no hay errores y los valores son:
Cita:
0
0
0
0
0
0
0
0
0
188,01570562548
0
200,800942459646
|
Ahora bien, no tengo ni idea si eso es lo que se espera para la fecha de hoy.
Saludos.