home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST136.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  497 b   |  24 lines
  1. ********************
  2.  
  3. FUNCTION Pv_of_fv
  4.  
  5.    PARAMETERS _fsum, _rate, _pperyear, _noyears
  6.  
  7.    IF TYPE("_fsum") + TYPE("_rate") + TYPE("_pperyear") + TYPE("_noyears") != "NNNN"
  8.       RETURN(-1)
  9.    ENDIF
  10.  
  11.    PRIVATE _time, _answ, _qaz, _subtot
  12.  
  13.    _time = 1 + ((_rate / _pperyear)/100)
  14.    _answ = _time
  15.    IF _noyears <> 1
  16.       FOR _qaz = 1 to (_noyears - 1)
  17.         _subtot = _answ * _time
  18.         _answ = _subtot
  19.       NEXT
  20.    ENDIF
  21.    RETURN(_fsum / _answ)
  22.  
  23. * End of File
  24.