[IAN] (no subject)
Rudolf Novak
novak na hvezdarna...
Pondělí Květen 14 16:51:15 CEST 2001
Hubner Dusan wrote:
>Nemate niekto nahodou poruke vzorec na vypocet JD (julianskeho datumu)?
> dusko
>
>_______________________________________________
>Ian mailing list
>Ian na amper....muni.cz
>http://amper.ped.muni.cz/mailman/listinfo/ian
>
>.
>
sice v packalu ale myslim, ze jede good....
r
function JD ( y,M,D : real ) : real;
{vypocet julianskeho data z data tvaru RRRR-MM-DD.DDD}
var a,B,jd1 : real;
begin
if (M=1.0)or(M=2.0) then begin
y:=y-1.0;
M:=M+12.0; end;
$
a:=int(0.01*y);
$
B:=2-a+int(0.25*a);
$
jd1:=int(365.25*y)+int(30.6001*(M+1.0))+D+1.7209945E6;
$
if (y<=1582.0)and(M<=10.0)and(D<15) then
$
JD:=a
$
else
JD:=jd1+B; $
end;
More information about the Ian
mailing list