home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST160.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  239 b   |  13 lines
  1. ********************
  2.  
  3. FUNCTION Eom
  4.  
  5.    PARAMETER _lasta, _lastb
  6.  
  7.    RETURN(DAY(CTOD(STR(IF(_lasta + 1 > 12, 1, _lasta + 1)) + "/01/" + ;
  8.         SUBSTR(STR(IF(_lasta + 1 > 12, _lastb + 1, _lastb)), -2)) - 1))
  9.  
  10. * End of File
  11.  
  12.  
  13.