未分类

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: 50

Hi, I’m 飞火流云

发表回复