'众所周知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: 50