[IAN] Julianske datum a algoritmy

[Jan Hollan]

On Mon, 14 May 2001, [iso-8859-1] Petr Scheirich wrote:

> Nebo
> http://nebmech.astronomy.cz/VYPOCTY/vypocty.htm#ObcJul
> 
> PS.

No, to je skvele, ty stranky, gratuluju, Petre!

Ja mam ve sve jednotce solar_ut dostupne v baliku pas_jh.zip v adresari
  http://astro.sci.muni.cz/pub/hollan/programmes
 trochu delsi kod, berouci v uvahu i oba evropske kalendare, viz dale.
V baliku je samozrejme i plno dalsich kodu na astronomicke vypocty, ktere 
jsem zatim potreboval. Vse je GNU. Jsou tam i binarky, pro lidi bez
prekladacu (doporucuju 
    Linkname: Free Pascal Compiler
        URL: http://www.freepascal.org/ ).
 

Jenik
               ----------------------------------

Ten kod je:

Function JD0(YYYY:integer;MM:word;ND:integer):real;
var Y,M,D:real; B: integer;
begin
 Y:=yyyy;
 m:=mm;
 d:=nd;
 if MM in [1,2] then
  begin
   Y:=Y-1;
   M:=M+12;
  end;
 if ((not ForcedJulian)
     and ((YYYY>1582)
        or ((YYYY=1582)
          and ((MM>10)
               or ((MM=10) and (ND>14))
              )

          )
      ))
 or  ForcedGregorian
          then
  begin
   B:=Trunc(Y/100);
   B:= 2 - B + Trunc(B/4.0);
  end
 else B:=0;
 D:=Trunc((M+1)*30.6001)+D+1720994.5+B;
 if Y<0 then
  JD0:=D+Trunc(Y*365.25 - 0.75)
 else
  JD0:=D+Trunc(Y*365.25)
end;