Ceiling atau pembulatan di (VB6)

Adakalanya kita dihadapkan pada kasus di project kita untuk membulatkan angka pecahan, nah di VB6 kita dapat memanfaatkan fungsi Round, lihat contoh berikut ini :

Round(1.1) - hasilnya : 1
Round(1,5) - hasilnya : 2
Round(1,7) - hasilnya : 2

Lalu bagaimana jika kita ingin membulatkan selalu kebawah? gampang…., tinggal ambil nilai integernya.

Int(1.1) - hasilnya : 1
Int(1,5) - hasilnya : 1
Int(1,7) - hasilnya : 1

Yang agak sulit, bagaimana jika pembulatannya selalu keatas? , hmmm… saya sempat bingung dengan ini, tapi akhirnya ketemu juga caranya, berikut caranya :

Pertama buat fungsi berikut :

Function Ceiling(number As Double) As Long 
 Ceiling = -Int(-number) 
End Function 

trus cara penggunaannya :

x=Ceiling(1.1)
    -> hasilnya : x=2
x=Ceiling(1,5)
    -> hasilnya : x=2
x=Ceiling(1,7)
    -> hasilnya : x=2

begitu fungsi pembulatan dalam VB6, gimana.. mudah bukan??