Как объединить двойные значения?

Question

Мой вопрос: bigmac отлично работает, когда я нажимаю кнопку bigmacadd и кнопку минус. Но когда я нажимаю кнопку mcdouble add, я получаю кучу чисел. Как я могу это сделать, чтобы он показывал 2,50 в виде десятичных знаков?

Public Class Form1 
    Const bigmac As Decimal = 4D 
    Const mcdouble As Decimal = 2.25 
    Dim tax As Decimal 
    Dim price As Decimal 
    Dim quantity As Integer 
    Dim finaltotal As Decimal 

    Private Sub Btnbigmacadd_Click(sender As Object, e As EventArgs) Handles Btnbigmacadd.Click 
     quantity = quantity + 1 
     txtquan.Text = quantity 

     price += bigmac 
     txtprice.Text = price 

     tax = price * 0.15 
     txttax.Text = tax 

     finaltotal = price + tax 
     txtfinaltotal.Text = finaltotal 
    End Sub 

    Private Sub btnbigmacminus_Click(sender As Object, e As EventArgs) Handles btnbigmacminus.Click 
     quantity = quantity - 1 
     txtquan.Text = quantity 

     price -= bigmac 
     txtprice.Text = price 

     tax = price * 0.15 
     txttax.Text = tax 

     finaltotal = price + tax 
     txtfinaltotal.Text = finaltotal 
    End Sub 

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click 
     quantity = quantity + 1 
     txtquan.Text = quantity 

     price += mcdouble 
     txtprice.Text = price 

     tax = price * 0.15 
     txttax.Text = tax 

     finaltotal = price + tax 
     txtfinaltotal.Text = finaltotal 
    End Sub 
End Class 

Answer 1

Вы можете округлить tax на два знака после запятой, используя Math.Round метод

tax = Math.Round(price * 0.15D, 2) 
txttax.Text = tax.ToString() 

finaltotal = price + tax 
txtfinaltotal.Text = finaltotal.ToString() 

Если хотите сохранить дополнительные десятичные места в tax и finaltotal, но показывают только два знака после запятой в текстовых полях, вы можете использовать метод ToString("N2").

tax = price * 0.15D 
txttax.Text = tax.ToString("N2") 

finaltotal = price + tax 
txtfinaltotal.Text = finaltotal.ToString("N2")