home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast.iso / pcmag / vol12n22.zip / D2JUL.ZIP / D2JUL next >
Text File  |  1993-11-30  |  634b  |  22 lines
  1. *****************************************************************
  2. * FUNCTION d2jul
  3. * Returns a character string of length 3, left padded with zeros
  4. * reflecting the number of the day of the year: 001-365 or 366.
  5. *****************************************************************
  6. FUNCTION d2jul
  7. PARAMETER adate
  8. lcyearset=SET("CENTURY")
  9. SET CENTURY ON
  10. lcdatedisp=SET("DATE")
  11. SET DATE TO ANSI
  12. IF PARAMETERS()=0
  13.    bdate=DATE()
  14. ELSE
  15.    bdate=adate
  16. ENDIF
  17. startjulian=CTOD(STR(YEAR(bdate)-1)+".12.31")
  18. miljulian= PADL(LTRIM(STR(bdate-startjulian)),3,"0")
  19. SET CENTURY &lcyearset
  20. SET DATE TO &lcdatedisp
  21. RETURN miljulian
  22.