VB中Round函数替代,四舍五入

'众所周知VB6中的round函数不能用于货币的四舍五入的计算的，调用WorksheetFunction.Round太慢，故需要替代函数
'四舍五入，速度远超WorksheetFunction.Round,Num使用Variant主要是为了excel传值方便，默认2位小数
Public Function FRound(ByVal Num As Variant, Optional ByVal dt As Integer = 2) As Double    
       Num = CDbl(Num) + 10 ^ (-(dt + 3))
       FRound = Round(Num, dt)
End Function

Views: 38