基于网上找到的一些函数和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