作者：iamlaosong
VBA取整函數(shù)有好幾個(gè)，用法也不同，有的還可以在工作表中使用，下面根據(jù)需求分別說明：
1、四舍五入取整，一般用于取近似數(shù)
（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，
此函數(shù)實(shí)際上有兩個(gè)參數(shù)，第二個(gè)參數(shù)表示取小數(shù)的位數(shù)，或略表示取整，即小數(shù)位數(shù)為0。該函數(shù)還可以在工作表中使用，使用時(shí)兩個(gè)參數(shù)必須寫全，即：
Round(12.56,0)=13，
Round(12.56,1)=12.6
2、取整數(shù)部分，小數(shù)舍棄，常用于取整數(shù)和余數(shù)（1）Fix：只能在VBA中使用
Fix(12.56)=12，
Fix(12.46)=12，
Fix(-12.56)=-12，
Fix(-12.46)=-12
（2）Int：在VBA和工作表中都可以使用
此函數(shù)取正數(shù)時(shí)和Fix相同，負(fù)數(shù)時(shí)往絕對值高的方向取，就是說，取小于其值得整數(shù)，
Int(12.56)=12，
Int(12.46)=12，
Int(-12.56)=-13，
Int(-12.46)=-13
舉例：買50個(gè)雞蛋，12個(gè)雞蛋一盒，那么需要Fix(50/12)=4盒，零頭50 mod 12=2個(gè)
3、往上取整，只要有小數(shù)，整數(shù)部分就加1，常用于資費(fèi)計(jì)算
郵件資費(fèi)定價(jià)時(shí)常用不足500g按500g計(jì)算，即501g相當(dāng)于2個(gè)500g計(jì)算資費(fèi)。本功能VBA沒有專門的函數(shù)，不過可以用數(shù)值+0.5再四舍五入取整實(shí)現(xiàn)，例如：
CInt(12.56+0.5)=13，
CInt(12.46+0.5)=13，
CInt(12.01+0.5)=13
不過，工作表中還是有一個(gè)Ceiling函數(shù)可以實(shí)現(xiàn)這個(gè)功能，Ceiling(12.01,1)=13，第二個(gè)參數(shù)1表示舍入到最近的整數(shù)。VBA中可以用下列方式引用：
a = Application.Ceiling(12.06, 1) 'a=13
Ceiling函數(shù)功能比較復(fù)雜，這兒就不詳細(xì)介紹了。
4、關(guān)于Round函數(shù)進(jìn)行四舍五入
VBA中Round函數(shù)進(jìn)行四舍五入并不是逢5就入，例如：
round(0.5)=0、 round(1.5)=2 、 round(2.5)=2 、round(3.5)= 4 、round(4.5)=4 ，難到還分奇偶？答案是確實(shí)分奇偶，在VBA中Round函數(shù)是采用“銀行家舍入”，建議大家在VBA中慎重使用Round函數(shù)來四舍五入。什么是“銀行家舍入”呢，定義如下：
“四舍六入五考慮，五后非零就進(jìn)一，五后為零看奇偶，五前為偶應(yīng)舍去，五前為奇要進(jìn)一”。這個(gè)四舍五入法是一個(gè)國際標(biāo)準(zhǔn)，大部分的編程軟件都使用的是這種方法，據(jù)說國際上一般都是用這種方法的。
如果在Excel VBA中進(jìn)行四舍五入處理，也可以直接調(diào)用Excel工作表函數(shù)，達(dá)到直接四舍五入的目的Application.Round(A,B)，例如，下面例句可以看出運(yùn)行效果：
a = Application.Round(12.5, 0) 'a=13
b = Round(12.5) 'b=12
聯(lián)系客服
