小數向上取整的實現

在EXCEL中有一個worksheet的函數 ceiling,它可以實現小數的向上取整。 比如

ceiling(1.0,1)=1
ceiling(1.1,1)=2
ceiling(1.5,1)=2
ceiling(1.9,1)=2
ceiling(2.0,1)=2

但在一般VB/VBA中可以通過標準的INT函數來實現。INT函數可以說幾乎所有的程式設計語言中均有此函數或相近函數。

構思： 小數 f ， 對f取整，然後再判斷f的小數部分是否為0
C
int(f)+(int(f)==f?1:0)
VB
INT(f) + IIF(INT(f)<>f,1,0)
或者利用 VB中true=-1
INT(f) -(INT(f)<>f)