纠正我以前的错误回答

[xxlroad]

'受 footballboy(郑创斌) 启发

'纠正我以前的错误回答
'在此表示道歉
'好久以前的回答已经不记的在哪里了

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

'大概正确点的
'四舍五入函数 CRound(MainNumber，Number)
'MainNumber是要转化的数，Number要保留的位数
Private Function CRound(MainNumber As Single, Number As Single) As Single
CRound = CInt(MainNumber * 10 ^ Number + 0.5) / 10 ^ Number
End Function

'请大家看下面的

Private Sub Command3_Click()
Print Int(1.265 * 100 + 0.5) '126
Print Fix(1.265 * 100 + 0.5) '126
Print CInt(1.265 * 100 + 0.5) '127
Print 1.265 * 100 + 0.5 '127
End Sub

Private Sub Command4_Click()
Dim A As Single
A = 1.265
Print Int(A * 100 + 0.5) '126
Print Fix(A * 100 + 0.5) '126
Print CInt(A * 100 + 0.5) '127
Print A * 100 + 0.5 '126.999998569489
End Sub

[xxlroad]

在 此 对 footballboy(郑创斌) 表示感谢
http://www.csdn.net/expert/topic/849/849758.xml?temp=.3285944

[rivershan]

:)

[rivershan]

好好学习~天天向上~
把分给我吧~：）