Untuk membulatkan angka pecahan di visual basic 6 kita dapat menggunakan fungsi Round, kira-kira hasilnya akan sebagai berikut :
Round(1.1) -> 1
Round(1,5) -> 2
Round(1,7) -> 2
Bagaimana jika kita ingin membulatkan selalu kebawah? gampang…., tinggal ambil nilai integernya.
Int(1.1) -> 1
Int(1,5) -> 1
Int(1,7) -> 1
Yang agak sulit, bagaimana jika kita ingin pembulatan selalu keatas? pake fungsi apa ya?, hmmm… saya sempat bingung juga, tapi akhirnya ketemu caranya juga, caranya sebagai berikut :
Buat fungsi berikut :
Function Ceiling(number As Double) As Long
Ceiling = -Int(-number)
End Function
Cara penggunaannya :
x=Ceiling(1.1) -> x=2
x=Ceiling(1,5) -> x=2
x=Ceiling(1,7) -> x=2
Filed under: VB 6
