[[escafandra]]

Es mejor usas DateTimeToJulianDate de delpfi, pero si quieres hacerlo con esa función que publicas puedes hacer esto:

Código Delphi [-]
function DateJulienne(annee, mois, jour :integer; h, m, s, ms: integer): real;
var
  aj, ye,mm,dd : integer;
  bj,jj,x, hh : real;
begin
  ye := annee;
  mm := mois;
  dd := jour;
  x := annee + mois / 10 + jour / 10000;
  if mm <= 2 then
  begin
    ye := ye - 1;
    mm := mm + 12;
  end;
  if x > 1583.101512 then
  begin
    aj := ye DIV 100;
    bj := 2 - aj + aj DIV 4;
  end else  bj := 0;
  jj := trunc(365.25 * ye) + trunc(30.6001 * (mm + 1));
  jj := jj + dd + 1720994.5 + bj ;
  hh := h + m/60 + s/3600 + ms/3600000;
  hh := hh/24;
  DateJulienne := (jj + hh);
end;

Saludos.