[compuin]

Empezado por Casimiro Notevi

¿Qué es se_sun?
¿Qué es se_mean_node?
¿Qué es swe_calc_ut?
¿Qué es iflag?
¿Qué es xx?
¿Qué es serr?
¿Qué es lg?
¿Qué es lt?
Y aparte de eso, ¿qué es lo que no funciona?
Y pon todo tu código involucrado.

Código Delphi [-]
var
  i, iflag  : integer;
  xx     : Array[0..5] of double;
  serr   : Array[0..255] of Char;
  hcusps : array[0..12] of double;
  lg, lt : double;

Esta es la funcion

Código Delphi [-]
function swe_calc_ut(tjd         : double;    {Julian day, Universal Time}
                     ipl         : Integer;   {planet number}
                     iflag       : Longint;   {flag bits}
                     var xx      : double;    {first of 6 doubles}
                     sErr        : PChar      {Error-String}
): Longint; stdcall; far; external 'swedll32.dll' name '_swe_calc_ut@24';

Código Delphi [-]
var xx

devuelve lo siguiente

xx =array of 6 doubles for longitude, latitude, distance, speed in long., speed in lat., and speed in dist.

Necesito que me devuelva xx=0;