Membulatkan Angka Pecahan menjadi bilangan bulat

Berikut ini adalah contoh untuk membulatkan pecahan menjadi bilangan bulat. Disini saya membuat dua fungsi, fungsi yang pertama adalah angka pecahan akan dibulatkan setengahnya ke atas. Contoh sebagai berikut :

angka pecahan 1.6 maka akan menghasilkan 2
angka pecahan 1.5 maka akan menghasilkan 1.5
angka pecahan 1.1 maka akan menghasilkan 1.5
angka pecahan 1 maka akan menghasilkan 1

Sedangkan fungsi yang kedua adalah setiap angka pecahan menjadi bilangan bulat ke atas berikutnya. contoh sebagai berikut :

angka pecahan 4.99 maka akan menghasilkan 5
angka pecahan 5.00001 maka akan menghasilkan 6
angka pecahan 6.01 maka akan menghasilkan 7
angka pecahan 6 maka akan menghasilkan 6

Contoh Pertama :

'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 BulatkanKeAtasSetengah(1.6)  '<-- menghasilkan 2
  MsgBox BulatkanKeAtasSetengah(1.5)  '<-- menghasilkan 1.5
  MsgBox BulatkanKeAtasSetengah(1.1)  '<-- menghasilkan 1.5
  MsgBox BulatkanKeAtasSetengah(1)    '<-- menghasilkan 1
End Sub

Private Function BulatkanKeAtasSetengah(ParamAngka As Double) As Double
  Dim Desimal As Double
  Dim BulatAngka As Integer
  BulatAngka = Val(ParamAngka)
  Desimal = ParamAngka - BulatAngka
  If Desimal = 0.5 Then
    BulatkanKeAtasSetengah = ParamAngka
  Else
    If Desimal < 0.5 And Desimal > 0 Then
      BulatkanKeAtasSetengah = BulatAngka + 0.5
    ElseIf Desimal > 0.5 Then
      BulatkanKeAtasSetengah = (ParamAngka - (Desimal - 0.5)) + 0.5
    Else
      BulatkanKeAtasSetengah = ParamAngka
    End If
  End If
End Function

Download :

• Contoh 1 Membulatkan Angka Pecahan menjadi bilangan bulat 

Password :

•  situsvisualbasic.blogspot.com

Contoh Kedua :

'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

Download :

• Contoh 2 Membulatkan Angka Pecahan menjadi bilangan bulat 

Password :

•  situsvisualbasic.blogspot.com