[IAN] (no subject)

[Hubner Dusan]

diky. Paskalista sice nie som, ale hadam ho z toho vylustim.
	dusko

-----Original Message-----
From: Rudolf Novak [mailto:novak na hvezdarna...]
Sent: Monday, May 14, 2001 4:51 PM
To: ian na amper....muni.cz
Cc: Szaa (el. adresa)
Subject: Re: [IAN] (no subject)


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;




_______________________________________________
Ian mailing list
Ian na amper....muni.cz
http://amper.ped.muni.cz/mailman/listinfo/ian