Membulatkan Angka Keatas (Ceiling)

Posted: Juli 5, 2008 in VB 6

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

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s