home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST315.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  415 b   |  22 lines
  1. ********************
  2.  
  3. FUNCTION Eoq
  4.  
  5.    PARAMETERS _tdate
  6.  
  7.    _tdate = IF( TYPE("_tdate") != "D", DATE(), _tdate)
  8.  
  9.    PRIVATE _tdate, adate
  10.  
  11.    _bdate = WHOLENUM(ABS((MONTH(_tdate)-1)) / 3)+1
  12.  
  13.    IF _bdate = 4
  14.       _adate = "01/01/" + STR(YEAR(_tdate)+1)
  15.    ELSE
  16.       _adate = TRANSFORM((_bdate*3)+1, "99") + "/01/" + STR(YEAR(_tdate))
  17.    ENDIF
  18.    
  19.    RETURN(CTOD(_adate) - 1)
  20.  
  21. * End of File
  22.