home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST29.PRG < prev    next >
Encoding:
Text File  |  1989-08-11  |  544 b   |  25 lines
  1. *******************
  2.  
  3. FUNCTION Compare
  4.  
  5.    PARAMETERS _numb1, _numb2
  6.  
  7.    * This function is designed to test two numbers
  8.    * that have gone through extensive numeric calculations
  9.    * and show that they are indeed, equal.
  10.  
  11.    PRIVATE _olddec, _return
  12.  
  13.    IF PCOUNT() != 2
  14.       RETURN(.F.)
  15.    ELSEIF TYPE("_numb1") + TYPE("_numb2") != "NN"
  16.       RETURN(.F.)
  17.    ENDIF
  18.    _olddec = Setdecimal()
  19.    SET DECIMALS TO 20
  20.    _return = ( STR(_numb1) = STR(_numb2) )
  21.    SET DECIMALS TO _olddec
  22.    RETURN(_return)
  23.  
  24. * End of File
  25.