7,785
社区成员
发帖
与我相关
我的任务
分享请问vb中对小数位非零进一取整的函数是什么？（不同于四舍五入）
请问vb中对小数位非零进一取整的函数是什么？（不同于四舍五入）
如1.2 --------->2
1.6 --------------2
如1.2 --------->2
1.6 --------------2
...全文
请发表友善的回复…
发表回复
hyui 2001-07-19
- 打赏
- 举报
emilcy:
如果x=2.0呢?那完了就是3了.
对于正数:
function IntX(x)
if int(x)<>x then
IntX=int(x+1)
else
IntX=x
end if
end function
负数照着办了.
如果x=2.0呢?那完了就是3了.
对于正数:
function IntX(x)
if int(x)<>x then
IntX=int(x+1)
else
IntX=x
end if
end function
负数照着办了.
Tackie 2001-07-19
- 打赏
- 举报
这样做不全对，当X本身就是整数的时候，计算的结果是错的。
应该先用Format函数将其转换成有一位小数，再判断这位小数是不是0
应该先用Format函数将其转换成有一位小数，再判断这位小数是不是0
emilcy 2001-07-19
- 打赏
- 举报
if x>0 then
int(x+1.0)
else
int(x-1.0)
end if
int(x+1.0)
else
int(x-1.0)
end if
