·····怎么精确到小数点后2位啊？？如：***(3.145)=3.15

Question

'四舍五入函数
'MainNumber是要转化的数，Number要保留的位数
Private Function CRound(MainNumber As Double, Number As Double) As Double
        CRound = Sgn(MainNumber) * Int(Sgn(MainNumber) * MainNumber * 10 ^ Number + 0.5) / 10 ^ Number
End Function

Answer 1

Private Sub Command1_Click()
    Print CRound(3.145, 2) '3.15
End Sub

Answer 2

有这么麻烦啊？有没有Round()这类的方法？
查过了，可以用Round(100.654, 1),会返回100.7

Answer 3

Round(100.654, 1),会返回100.7 对vb6.0可以
对于5.0不可以

Answer 4

Private Sub Command1_Click()
    Print Round(100.45, 1) ',会返回100.4
    Print CRound(100.45, 1) ',会返回100.5
End Sub

Answer 5

Round 为 四舍六入五成双 函数

Answer 6

 
Round函数
      描述返回一个数值，该数值是按照指定的小数位数进行四舍五入运算的结果。语法Round(expression [,numdecimalplaces])Round函数语法有如下几部分：部分 描述 
expression 必需的。要进行四舍五入运算的数值表达式。 
numdecimalplaces 可选的。数字值，表示进行四舍五入运算时，小数点右边应保留的位数。如果忽略，则Round函数返回整数。