Buenos dias foro,
Tengo una funcion para calcular el Dia Juliano, asi
Código Delphi
[-]Function DateJulienne(annee, mois, jour :integer):real;
var
aj, ye,mm,dd : integer;
bj,jj,x : 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 ;
DateJulienne := (jj);
end;
Para esta fecha
funciona correcto y me arroja
.
El asunto esta cuando intento agregar la hora a la misma funcion, deberia arrojarme
pero lo que me arroja es
.
Aca la funcion que uso para calcular incluyendo horas
Código Delphi
[-]Function JourJulien(annee, mois, jour :integer; heure:real ):real;
var
aj,ye,mm,bj,dd : integer;
jj,x : real;
begin
ye := annee;
mm := mois;
dd := jour;
x := annee + mois / 10 + jour / 10000 + heure / 1000000;
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 + heure / 24;
JourJulien := (jj - 2415020) / 36525;
end;
Que estoy calculando mal ?