【VBA研究】取整函数的使用
作者：iamlaosong
VBA取整函数有好几个，用法也不同，有的还可以在工作表中使用，下面根据需求分别说明：
1、四舍五入取整，一般用于取近似数
（1）CInt：只能在VBA中使用
CInt(12.56)=13，
CInt(12.46)=12，
CInt(-12.56)=-13，
CInt(-12.46)=-12
（2）Round：在VBA中使用和CInt相同
Round(12.56)=13，
Round(12.46)=12，
Round(-12.56)=-13，
Round(-12.46)=-12，
此函数实际上有两个参数，第二个参数表示取小数的位数，或略表示取整，即小数位数为0。该函数还可以在工作表中使用，使用时两个参数必须写全，即：
Round(12.56,0)=13，
Round(12.56,1)=12.6
2、取整数部分，小数舍弃，常用于取整数和余数
（1）Fix：只能在VBA中使用
Fix(12.56)=12，int函数与round函数
Fix(12.46)=12，
Fix(-12.56)=-12，
Fix(-12.46)=-12
（2）Int：在VBA和工作表中都可以使用
此函数取正数时和Fix相同，负数时往绝对值高的方向取，就是说，取小于其值得整数， 
Int(12.56)=12，
Int(12.46)=12，
Int(-12.56)=-13，
Int(-12.46)=-13
举例：买50个鸡蛋，12个鸡蛋一盒，那么需要Fix(50/12)=4盒，零头50 mod 12=2个
3、往上取整，只要有小数，整数部分就加1，常用于资费计算
邮件资费定价时常用不足500g按500g计算，即501g相当于2个500g计算资费。本功能VBA没有专门的函数，不过可以用数值+0.5再四舍五入取整实现，例如：
CInt(12.56+0.5)=13，
CInt(12.46+0.5)=13，
CInt(12.01+0.5)=13
不过，工作表中还是有一个Ceiling函数可以实现这个功能，Ceiling(12.01,1)=13，第二个参数1表示舍入到最近的整数。VBA中可以用下列方式引用：
a = Application.Ceiling(12.06, 1)        'a=13
Ceiling函数功能比较复杂，这儿就不详细介绍了。
4、关于Round函数进行四舍五入
VBA中Round函数进行四舍五入并不是逢5就入，例如：
round(0.5)=0、 round(1.5)=2 、 round(2.5)=2 、round(3.5)= 4 、round(4.5)=4 ，难到还分奇偶？答案是确实分奇偶，在VBA中Round函数是采用“银行家舍入”，建议大家在VBA中慎重使用Round函数来四舍五入。什么是“银行家舍入”呢，定义如下：
“四舍六入五考虑，五后非零就进一，五后为零看奇偶，五前为偶应舍去，五前为奇要进一”。这个四舍五入法是一个国际标准，大部分的编程软件都使用的是这种方法，据说国际上一般都是用这种方法的。
如果在Excel VBA中进行四舍五入处理，也可以直接调用Excel工作表函数，达到直接四舍五入的目的Application.Round(A,B)，例如，下面例句可以看出运行效果：
a = Application.Round(12.5, 0)  'a=13
b = Round(12.5)                        'b=12

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。