Function Round() di VB6

'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.

'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

'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