Membulatkan Setiap Angka Pecahan ke Bilangan Bulat Berikutnya

Function Round() di VB6 akan membulatkan angka desimal secara proporsional sesuai dengan parameter jumlah digit desimal yang ditentukan pada parameter kedua. Jika Anda ingin membulatkan setiap angka pecahan menjadi bilangan bulat ke atas berikutnya tanpa memperdulikan apakah nilai desimal lebih besar dari 5 atau bukan (Contoh: Anda menginginkan agar angka 6,01 (Enam koma nol satu) maupun 6,99 (Enam koma sembilan sembilan) sama-sama akan dibulatkan menjadi angka 7), maka code berikut ini.

'Deskripsi: Membulatkan setiap angka pecahan menjadi bilangan
' bulat ke atas berikutnya. Contoh: Angka 6,01 (Enam
' koma nol satu) akan dibulatkan menjadi 7, sedangkan jika
' parameternya bilangan bulat, maka tidak dibulatkan ke atas.
'Pembuat : Masino Sinaga (admin@masinosinaga.com)
'Tanggal : Kamis, 23 Oktober 2008
'Persiapan: 1. Buat satu project standard exe dengan satu form
' 2. Tambahkan satu CommandButton ke atas form
' 3. Copy-kan code ini ke editor form yang bertalian
'--------------------------------------------------------------

Private Sub Command1_Click()
MsgBox BulatkanKeAtas(CDbl("4,99")) '<-- menghasilkan 5 MsgBox BulatkanKeAtas(5.00001) '<-- menghasilkan 6 MsgBox BulatkanKeAtas(6.01) '<-- menghasilkan 7 MsgBox BulatkanKeAtas(6) '<-- menghasilkan 6 End Sub Private Function BulatkanKeAtas(BilDes As Double) Dim temp As Integer temp = Val(BilDes) If BilDes / temp > 1 Then
BulatkanKeAtas = temp + 1
Else
BulatkanKeAtas = temp
End If
End Function