[编程交流] 将数字四舍五入到最近值

(defun Round05( theNumber / theRem )
(setq theRem (rem theNumber 1))
(cond
 ((= theRem 0.0)                         theNumber)
 ((and (> theRem  0.0)  (< theRem 0.25)) (* (fix theNumber) 1.0))
 ((and (>= theRem 0.25) (< theRem 0.75)) (+ (fix theNumber) 0.5))
 ((>= theRem 0.75)                       (+ (fix theNumber) 1.0))
)
)

;; Round Up  -  Lee Mac
;; Rounds 'n' up to the nearest 'm'
(defun LM:roundup ( n m )
   (cond ((equal 0.0 (rem n m) 1e- n)
         ((< n 0) (- n (rem n m)))
         ((+ n (- m (rem n m))))
   )
)

_$ (LM:roundup 3 0.5)
3
_$ (LM:roundup 3.25 0.5)
3.5
_$ (LM:roundup 4 0.5)
4
_$ (LM:roundup 4.625 0.5)
5.0

(defun round (num prec)
 (* prec
    (if (minusp num)
      (fix (- (/ num prec) 0.5))
      (fix (+ (/ num prec) 0.5))
    )
 )
)

' This handles any non-integer input and rounds the user's input up to the nearest vDenominator
' In this case we use 1/16" and it remember it rounds up, not down.
   Public Function RoundFraction(ByVal x As Double, ByVal vDenominator As Integer) As Double
       If (x - Int(x)) * vDenominator <> Int((x - Int(x)) * vDenominator) Then
           x = (Int((x - Int(x)) * vDenominator) + 1) / vDenominator + Int(x)
       End If
       Return x
   End Function

  RoundFraction(4.4231, 16)