请问一下怎么能实现 = 5 时也进1 ？有什么好办法？

Question

vb中怎么样将一个小数点后第一位数字为5的数字四舍五入成整数，例如：将1.5变为2，很多函数我都试过，如 math.round(2.5) = 2 但是math.round(2.6) = 3，cint(2.5) = 2 ，cint(2.6) = 3，这两个函数都是小数点后第一位 = 5 时就舍掉，大于5时就 进一，怎么能实现 = 5 时也进1 ，请高手指教啊，急

Answer 1

round()函数是4舍6入，5看奇偶。
比如 round(1.5，0）＝2，round(2.5，0）＝2，round(2.5001，0）＝3，

这样就是你的要求了
Int(2.5 + 0.5)＝3
Int(2.499 + 0.5)＝2

Answer 2

在 Option Strict Off 的情况下，可以使用 CInt 函数将其他数据类型显式转换为 Integer 类型。但是，Cint 并非截去数字的小数部分，而是舍入为最接近的整数。例如：

MyNumber = CInt(99.8) ' Returns 100.
MyNumber = CInt(-99.8) ' Returns -100.
MyNumber = CInt(-99.2) ' Returns -99.

自己模拟常见的四舍五入，需要 import system.math
function sishewuru(byval dblX as double) as integer
if dblx >= truncate(dblX) +0.5 then
return truncate(dblX) + 1
else
return truncate(dblX)
end if
end Function
随便瞎写的，你可能需要修改吧

Answer 3

在精度允许范围内加上一点点，比如round(2.5+0.00001),结果就是3啦

private function RoundEx(byval dVal as Variant,optional byval lLen as long=0) as double
if isnumeric(dVal) then
if val(dVal)<0 then
RoundEx=round(val(dVal)-0.00000000000001,lLen)
elseif val(dVal)>0 then
RoundEx=round(val(dVal)+0.00000000000001,lLen)
else
RoundEx=0
end if
end if
end function