自定义一个真正做到四舍五入的函数(VBscript)

 

基于网上找到的一些函数和vbscript内置的函数不能真正做到四舍五入，我写了一个自定义函数。
'自定义的四舍五入函数(真正做到四舍五入)
AvinRound(num)

    num=split(num,".")
   
    if ubound(num)+1>1 then
        if CInt(num(1))>=5 then
            if num(0)<>"" then
                num(0)=num(0)+1
            else
                num(0)=0+1
            end if
        end if
    end if
    AvinRound=num(0)

end

调用方法
Dim OneCount,NumCount
NumCount=0.65
OneCount=AvinRound(NumCount)
Response.Write OneCount
传入一个小数，经过四舍五入后，返回一个整数，再赋值给OneCount