home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / DBAPG.ARC / JUL2CAL.PRG < prev    next >
Encoding:
Text File  |  1984-08-12  |  1.4 KB  |  47 lines
  1. * Program.: JUL2CAL.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...║ Julian t∩ calenda≥ date conversion.
  7. * Local...: t:year, t:month, t:day, t:date, t:leapday
  8. *
  9. *    IN: julian-N-6    Julian date.
  10. *   OUT: mdate-C-8     Calendar date in MM/DD/YY format.
  11. *
  12. STORE INT( julian / 365.26 ) + 1 TO t:year
  13. STORE julian + INT( 395.25 - 365.25 * t:year ) TO t:day
  14. STORE 1 TO t:leapday
  15. *
  16. * ---Calculate extra day for leap year.
  17. IF INT(t:year/4) * 4 <> t:year
  18.    STORE 2 TO t:leapday
  19. ENDIF
  20. *
  21. * ---Calculate actual number of days.
  22. IF t:day > ( 91 - t:leapday )
  23.    STORE t:day + t:leapday TO t:day
  24. ENDIF
  25. *
  26. * ---Calculate month, day, and year.
  27. STORE INT( t:day / 30.57 ) TO t:month
  28. STORE t:day - INT( 30.57 * t:month ) TO t:day
  29. IF t:month > 12
  30.    STORE 1 TO t:month
  31.    STORE t:year + 1 TO t:year
  32. ENDIF
  33. STORE t:year - 1900 TO t:year
  34. *
  35. * ---Set-up the calendar date.
  36. STORE STR(t:month,2)+"/"+STR(t:day,2)+"/"+STR(t:year,2) TO mdate
  37. *
  38. * ---Force leading zeroes.
  39. STORE DATE() TO t:date
  40. SET DATE TO &mdate
  41. STORE DATE() TO mdate
  42. SET DATE TO &t:date
  43. *
  44. RELEASE t:year,t:month,t:day,t:date,t:leapday
  45. RETURN 
  46. * EOF: JUL2CAL.PRG
  47.