Переменная Math.Round?Visual Basic - PullRequest
0 голосов
/ 16 марта 2011

Я пишу программу для своего визуального базового класса, которая вычисляет цены на банки за фунт. У меня запущена программа, но мне нужно округлить центы до ближайшего доллара. Как я могу сделать это в VB? Можно ли округлить десятичную переменную?

Извините, если это звучит глупо, я новичок, лол.

Вот мой код.

Public Class Form1

    Private Sub btnCalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculate.Click
        'Variables
        Dim cans As Integer
        Dim canPounds As Integer
        Dim canPoundTotal As Decimal
        Dim canWorth As Decimal = 0.75
        Dim cansNeeded As Integer

        'Conversions

        cans = Convert.ToInt32(txtGoal.Text)

        'Calculation

        canPounds = cans / 24

        canPoundTotal = canPounds * canWorth

        cansNeeded = 33000 - cans


        If cboNeed.SelectedIndex = 0 Then
            lblOutput.Text = cansNeeded.ToString + " cans need to be collected to reach your goal"

        ElseIf cboNeed.SelectedIndex = 1 Then
            lblOutput.Text = canPoundTotal.ToString("C") & " will be earned by collecting cans for recycling"


        End If




    End Sub


    Private Sub cboNeed_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboNeed.SelectedIndexChanged

        If cboNeed.SelectedIndex = 0 Then

            lblDesc.Text = "Target Goal Amount"
            btnCalculate.Text = "Find Target Amount of Cans"

        ElseIf cboNeed.SelectedIndex = 1 Then

            lblDesc.Text = "Cans Collected"
            btnCalculate.Text = "Find Amount Earned"

        End If

    End Sub
End Class

1 Ответ

1 голос
/ 16 марта 2011

Вы можете использовать функцию: Math.Round (значение)

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...