home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast.iso / pcmag / vol10n17.zip / EOMD.ZIP / EOMD
Text File  |  1991-09-10  |  513b  |  16 lines
  1. ***********************************************************************
  2. * Function EOMD - Return the last date of the month
  3. *
  4. * Usage: d = EOMD(mdate)
  5. *
  6. * mdate = Any valid date
  7. *
  8. * Returns d, a date variable containing the last valid date of the
  9. * month
  10. ***********************************************************************
  11. FUNCTION eomd
  12. PARAMETERS pdate
  13. RETURN IIF(MONTH(pdate)<12, ;
  14.     CTOD( STR(MONTH(pdate) + 1, 2) + "/01/" + STR(YEAR(pdate)) ) - 1,;
  15.     CTOD("12/31/"+STR(YEAR(pdate))) )
  16.