# (Sumber: milist DOTNET) pembulatan angka

• ### Pertanyaan

• salam,

untuk pembulatan nilai angka ke atas dan ke bawah functionnya di vb.net apa ya? ada yang tau :D
misalnya nominal nya : 125.533

Agnes Sannie [MSFT]
MSDN Community Support | Feedback to us
Get or Request Code Sample from Microsoft
Please remember to mark the replies as answers if they help and unmark them if they provide no help.
Jumat, 27 Januari 2012 18.40

### Jawaban

• Pembulatan kebawah pakai Floor, keatas paka Ceiling. Contoh nominal 125533,
#kebawah -> Math.Floor(125533/100.0)*100
#keatas -> Math.Ceiling(125533/100.0)*100

Kalau titik pada contoh angka anda adalah tanda desimal (bukan pemisah ribuan), caranya sedikit beda

#kebawah -> Math.Floor(125.533*10.0)/10
#keatas -> Math.Ceiling(125.533*10.0)/10

Dijawab oleh: Putu Susila

Agnes Sannie [MSFT]
MSDN Community Support | Feedback to us
Get or Request Code Sample from Microsoft
Please remember to mark the replies as answers if they help and unmark them if they provide no help.
Jumat, 27 Januari 2012 18.43

### Semua Balasan

• `Public Shared Function SomeFunc(ByVal value As Double) As Double`
`        If ((value - Math.Truncate(value)) < 0.5) Then`
`            Return (value - (value - Math.Truncate(value)))`
`        End If`
`        If ((value - Math.Truncate(value)) > 0.6) Then`
`            Return ((value - (value - Math.Truncate(value))) + 1)`
`        End If`
`        Return value 'Utak-atik disini`
```    End Function

```
```

```
`        Console.WriteLine(Class1.someFunc(3.44)) 'output 3`
`        Console.WriteLine(Class1.someFunc(3.55)) 'output 3.55`
`        Console.WriteLine(Class1.someFunc(3.66)) 'output 4`

Dijawab oleh: Agus Syahputra

Agnes Sannie [MSFT]
MSDN Community Support | Feedback to us
Get or Request Code Sample from Microsoft
Please remember to mark the replies as answers if they help and unmark them if they provide no help.
Jumat, 27 Januari 2012 18.41
• Pembulatan kebawah pakai Floor, keatas paka Ceiling. Contoh nominal 125533,
#kebawah -> Math.Floor(125533/100.0)*100
#keatas -> Math.Ceiling(125533/100.0)*100

Kalau titik pada contoh angka anda adalah tanda desimal (bukan pemisah ribuan), caranya sedikit beda

#kebawah -> Math.Floor(125.533*10.0)/10
#keatas -> Math.Ceiling(125.533*10.0)/10

Dijawab oleh: Putu Susila

Agnes Sannie [MSFT]
MSDN Community Support | Feedback to us
Get or Request Code Sample from Microsoft
Please remember to mark the replies as answers if they help and unmark them if they provide no help.
Jumat, 27 Januari 2012 18.43
• Kalau anda ingin angkanya benar-benar dibulatkan kebawah, semisal 9,9 tetap dibaca 9. Maka gunakan perintah fix(). Anda bisa cari artikel tersebut di MSDN kok.
Jumat, 24 Februari 2012 15.29
• Mohon dibuat lebih spesifik dong pertanyaannya. Biar saya mudah menangkapnya.
Jumat, 24 Februari 2012 17.29
• Permsi Mod..!!

Mau tanya...

Masih agak bingung nih..

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim a, b, x, y As Double
Dim i As Integer
a = TextBox1.Text
b = TextBox2.Text
x = a
y = b
For i = 1 To Val(Label8.Text)
x = x + Val(Label10.Text)
y = y + Val(Label11.Text)
Next

Nah script diatas nantinya akan menampilkan perulangan di ListBox..

trz.. bagaimana caranya biar pembulatan doublenya mnjadi 1 angka dibelakang koma

misalnya : angkanya 3,387383979634 menjadi 3,4 saja.

Klao bisa.. cepat yah mod..!! Tugas Kumpul Besok..!!

Terima Kasih..!!

Rabu, 07 Maret 2012 10.58
• Udah pernah pakai Format belum? Cara nulisnya seperti ini:

Dim a As Double = textbox1.text

Dim b as Double = Format(a,'#.#')

Kalo gak jelas juga, cari di msdn dengan kata kunci format. Contoh penggunaannya banyak banget kok. Semoga membantu.

• Disarankan sebagai Jawaban oleh Kamis, 08 Maret 2012 08.21
Kamis, 08 Maret 2012 08.21