home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 September / Simtel20_Sept92.cdr / msdos / turbopas / pas_sci.arc / JULIAN.LIB < prev    next >
Text File  |  1985-07-21  |  384b  |  19 lines
  1.  
  2.  
  3. function julian(dd,mm,yyyy: integer): integer;
  4. var jm,jy: integer;
  5. begin
  6.   case mm of
  7.     1,2    : begin
  8.         jy:=yyyy-1;
  9.         jm:=mm+13
  10.       end
  11.     else
  12.       begin
  13.           jy:=yyyy;
  14.         jm:=mm
  15.       end;
  16.   julian:=trunc(365.25*jy)+trunc(30.6001*jm)+dd+1720982
  17. end;    { julian }
  18.  
  19.