home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / PAS_ENG.ZIP / JULIAN.LIB < prev    next >
Encoding:
Text File  |  1985-07-18  |  278 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.