home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / dbase / techs.arc / TECH12.ARC / JULCAL.PRG < prev    next >
Encoding:
Text File  |  1985-11-01  |  1.1 KB  |  40 lines
  1. * Program ...: Julcal.PRG
  2. * Author ....: Clay Carley
  3. * Date ......: July 1, 1985
  4. * Version ...: dBASE II, any version
  5. * Note(s)....: Converts a Julian date passed as a numeric memory
  6. *              variable named (jul:date) and returns a
  7. *              character memory variable named (cdate) in
  8. *              calendar format (MM/DD/YY).
  9. *
  10. STORE INT( jul:date / 365.26 ) + 1 TO year
  11. STORE jul:date + INT( 395.25 - 365.25 * year ) TO day
  12. IF INT( year / 4 ) * 4 = year
  13.    STORE 1 TO leapday
  14. ELSE
  15.    STORE 2 TO leapday
  16. ENDIF
  17. IF day > ( 91 - leapday )
  18.    STORE day + leapday TO day
  19. ENDIF
  20. STORE INT( day / 30.57 ) TO month
  21. STORE day - INT( 30.57 * month ) TO day
  22. IF month > 12
  23.    STORE 1 TO month
  24.    STORE year + 1 TO year
  25. ENDIF
  26. IF month < 10
  27.    STORE 1 TO monlen
  28. ELSE
  29.    STORE 2 TO monlen
  30. ENDIF
  31. IF day < 10
  32.    STORE 1 TO daylen
  33. ELSE
  34.    STORE 2 TO daylen
  35. ENDIF
  36. STORE year - 1900 TO year
  37. STORE STR( month, monlen ) + '/' + STR( day, daylen ) + '/' + STR( year ,2 ) TO       cdate
  38. RELEASE day, daylen, leapday, month, monlen, year
  39. RETURN
  40. * EOP Julcal.PRG