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