home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / msdos / pcmag / vol8n08.arc / ROUNDOFF.BAS < prev    next >
Encoding:
BASIC Source File  |  1988-07-22  |  340 b   |  13 lines
  1.      FUNCTION RoundOff! (X!, K%) STATIC
  2.          IF K% > 6 THEN K% = 6
  3.          IF ABS(X!) > 1E-39 THEN
  4.             NP% = K% - 1 - INT(LOG(ABS(X!)) / LOG(10#))
  5.             PN# = 10# ^ CDBL(NP%)
  6.             L& = PN# * X!
  7.             RoundOff! = L& / PN#
  8.          ELSE
  9.             RoundOff! = 0
  10.          END IF
  11.      END FUNCTION
  12.  
  13.