home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / DISK_425.ZIP / JULIAN.LIB < prev    next >
Encoding:
Text File  |  1986-06-20  |  384 b   |  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.