home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / dbase / techs.arc / TECH12.ARC / CALJUL.PRG next >
Encoding:
Text File  |  1985-11-01  |  738 b   |  24 lines
  1. * Program ...: Caljul.PRG
  2. * Author ....: Clay Carley
  3. * Date ......: July 1, 1985
  4. * Version ...: dBASE II, any version
  5. * Note(s)....: Converts a date passed as a character variable
  6. *              named (date) in the form MM/DD/YY and returns a
  7. *              numeric memory variable named (jul:date) in Julian
  8. *              format.
  9. *
  10. STORE VAL( $( date,1,2 ) ) TO month
  11. STORE VAL( $( date,4,2 ) ) TO day
  12. STORE VAL( $( date,7,2 ) ) + 1900 TO year
  13. STORE INT( 30.57 * month ) + INT( 365.25 * year - 395.25 ) + day TO jul:date
  14. IF month > 2
  15.    IF INT( year / 4) = year / 4
  16.       STORE jul:date - 1 TO jul:date
  17.    ELSE
  18.       STORE jul:date - 2 TO jul:date
  19.    ENDIF
  20. ENDIF
  21. RELEASE day, month, year
  22. RETURN
  23. * EOP Caljul.PRG
  24.