取整函数

1959dasxsf

有没有这样的函数，可使 4.4=4  -4.4=-4

tmtony

直接使用Fix函数即可

tmtony

一、取整数部分
先介绍两个取整数部分的函数：Int(number) 和 Fix(number)。
Int函数和 Fix函数都是删除 number参数的小数部分并返回以整数表示的结果。但他们有一个区别

Int(55.8) ' 返回 55。
Fix(55.2) ' 返回 55。
Int(-55.8) ' 返回 -56。
Fix(-55.8) ' 返回-55。
Int(-55.2) ' 返回 -56。
Fix(-55.2) ' 返回 -55
很明显，不管小数是什么，取整结果一样。正数取整数部分；负数，Fix函数还是取整数部分，而Int函数取小于改数的整数。

二、四舍五入

1、使用数学逻辑
原理：先乘以10，用Int函数取整。再判断个位数是否大于5，大于则原来数字取整后加1，小于则只是原来数字取整
dim a as double,b as long
a=10.56
a=a*10
if right(int(a),1)>=5 then
b=int(a/10)+1
else
b=int(a/10)
end if

2、使用Format 格式化函数
dim a as double
a=10.56
msgbox format(a,"0")
3、使用int 函数
B=INT(A+0.5)

三、向上取整
向上取整是只要有小数，整数部分直接加一，想了想，找到一个最简单的办法实现。
原理：假设是整数，取负数，利用int函数的特性，自然就取整绝对值加一，再乘负1
‘代码：dim a as double,b as long
a=10.11
b=-Int(-s)

tmtony

Excel可考虑函数 rounddown