VB6中的货币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