(Sumber: milist DOTNET) pembulatan angka

Question

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

jadi mau di bulatkan ke bawah jadi 125.500 dan ke atas jadi 125.600

---

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.

Answer 1

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.

Answer 2

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.

Answer 3

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.

Answer 4

Mohon dibuat lebih spesifik dong pertanyaannya. Biar saya mudah menangkapnya.

Answer 5

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)
                ListBox1.Items.Add(x)
                ListBox2.Items.Add(y)
            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..!!

Answer 6

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.