[分享]真正的四舍五入的函数

zhuyiwen

1. Public Function RoundToLarger(dblInput As Double, intDecimals As Integer) As Double
   
2.    
   
3.     'Implements a variant of the Round() function, that rounds-to-larger
   
4.     'rather than rounds-to-even:
   
5.         
   
6.     Dim strFormatString As String 'Format string
   
7.    
   
8.     'If input is zero, just return zero. Else format as appropriate:
   
9.     If dblInput <> 0 Then
   
10.         strFormatString = "#." & String(intDecimals, "#")
    
11.         RoundToLarger = Format(dblInput, strFormatString)
    
12.     Else
    
13.         RoundToLarger = 0
    
14.     End If
    
15.    
    
16. End Function

复制代码

转自: http://www.tek-tips.com/faqs.cfm?spid=705&amp;rat1=10&amp;sfid=3734

1. ? Round(2.385, 2)
   
2. 2.38
   
3. ? RoundToLarger(2.385, 2)
   
4. 2.39

复制代码

ail

但为何1500*4123却得数带小数了，不明

ail

还有1.255*3得数是3.76而不是3.77，更不明了

aronliu

HI

5988143

謝謝分享

silkzhou

lk

sunmyth

不可不看！

lanfeng125

不是吧,这么麻烦!!!!!!!![em18]

whl0049

正需要这个，看看！！！！！11

zxzx2733

看看