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

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

复制代码

dfang

正需要

jingan

好东东学习

yanghua1900363

xuexi xuex

william_yao

学习！！！

文棣

用得着

YXH_YXH

多谢！！！！！！

xyh2732

ffffffffff

hxn

study

nature876

学下