home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / DBAPG.ARC / CAL2JUL.PRG < prev    next >
Text File  |  1984-08-12  |  1KB  |  30 lines
  1. * Program.: CAL2JUL.PRG
  2. * Author..: Anonymous, modified by Luis A. Castro.
  3. * Date....: 1/12/83, 11/20/83, 01/19/84
  4. * Notice..: Copyright 1983 & 1984, Ashton-Tate, All Rights Reserved
  5. * Version.: dBASE II, version 2.4x
  6. ¬ Notes...║ Calenda≥ t∩ juliaε date conversion.
  7. * Local...: t:year, t:month, t:day
  8. *
  9. *    IN: mdate-C-8     Calendar date, assumes date is in
  10. *                      MM/DD/YY format, and a valid date.         
  11. *   OUT: julian-N-6    Julian date
  12. *
  13. STORE VAL($(mdate,1,2)) TO t:month
  14. STORE VAL($(mdate,4,2)) TO t:day
  15. STORE VAL($(mdate,7,2) ) + 1900 TO t:year
  16. STORE INT( 30.57 * t:month ) +;
  17.       INT( 365.25 * t:year - 395.25 ) + t:day TO julian
  18. *
  19. * ---Adjust the julian date on leap year.
  20. IF t:month > 2
  21.    STORE julian - 1 TO julian
  22.    IF INT( t:year / 4 ) * 4 <> t:year
  23.       STORE julian - 1 TO julian
  24.    ENDIF
  25. ENDIF
  26. *
  27. RELEASE t:year, t:month, t:day
  28. RETURN 
  29. * EOF: CAL2JUL.PRG
  30.