非常规的数字四舍五入 - 并非所有数字都有效

Question

我正在添加两个十进制数字。当小数部分达到 0.60 时，应向上取整，例如 20.60 向上取整为 21.00。

我已经能够做到这一点，并且该应用程序大部分都在工作，但是当小数点前的数字超过百列时，比如说 999.40，并且它到达千位列，千位分隔符不会工作。例如，如果我想将两个数字相加，比如 600.20 和 600.30，我的答案不是 1,200.50，而是 1.00。

这是我目前的代码：

Private Sub Calculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Calculate.Click
    'ans for txtbox5.tetx

    Try
        If Convert.ToInt32(Microsoft.VisualBasic.Right((Val(Label41.Text).ToString("N2")), 2)) + Convert.ToInt32(Microsoft.VisualBasic.Right((Val(Label42.Text).ToString("N2")), 2)) > 99 Then
            MessageBox.Show("invalid entry")
        Else
            Label41.Text = Val(TxtBox2.Text)
            Label42.Text = Val(TxtBox34.Text)

            'sum of numbers in two txtbox
            'TxtBox5.Text = Val(TxtBox2.Text) + Val(TxtBox34.Text)
            Label43.Text = (Val(Label41.Text) + Val(Label42.Text)).ToString("N2")

            'strip last 2 decimals :
            ln = Convert.ToInt32(Microsoft.VisualBasic.Right((Val(Label43.Text).ToString("N2")), 2))
            Label44.Text = ln.ToString


            'form decimal from 2 decimals
            Label45.Text = "0." & Label44.Text

            'subtract new decimal from 1st answer
            Label46.Text = (Val(Label43.Text) - Val(Label45.Text)).ToString("N2")

            'checks if striped decimal is btw 100 and 59
            If (Val(Label44.Text)) < 100 And (Val(Label44.Text)) > 59 Then
                runup = runup + 1
                newans = (Val(Label44.Text) - Val(60))
                Label45.Text = (Val(Label45.Text) - Val(0.6)).ToString("N2")

                Try
                    'check if decimal is between 100 and 59
                    If (Val(newans)) < 100 And (Val(newans)) > 59 Then
                        runup = runup + 1
                        newans = (Val(newans) - Val(60))
                        Label45.Text = (Val(Label45.Text) - Val(0.6)).ToString("N2")

                        Label47.Text = (Val(runup) + Val(Label46.Text)) + Val(Label45.Text).ToString("N2")
                        runup = 0

                        'check if new decimal is between 60 and 0
                    ElseIf (Val(newans)) < 60 And (Val(newans)) >= 0 Then
                        Label47.Text = ((Val(runup) + Val(Label46.Text)) + Val(Label45.Text)).ToString("N2")
                        runup = 0
                    End If
                Catch ex As Exception
                    MsgBox(ex.Message)
                End Try

                'check if striped decimal is btw 60 and 0
            ElseIf (Val(Label44.Text)) < 60 And (Val(Label44.Text)) >= 0 Then
                Label47.Text = ((Val(runup) + Val(Label46.Text)) + Val(Label45.Text)).ToString("N2")
                runup = 0
            End If

        End If

    Catch ex As Exception
    End Try

    TxtBox5.Text = Label47.Text

是什么导致了较大数字的问题？

Answer 1

您似乎通过将 UI 元素（例如标签）当作变量来使用，让您的代码更难理解。这些标签的名称无济于事 - 您打算如何弄清楚“Label44”代表什么？

您可以从文本框中获取输入数据并将其解析为合适的数据类型 - 对于这种特殊情况，我建议使用 Decimal - 并且使用合适的变量名将更容易查看代码在做什么。

例如，我在一个表单上放置了三个文本框并将它们命名为“tbNum1”、“tbNum2”和“tbSum”，添加了一个名为“bnCalculate”的按钮，并使用了以下代码：

Private Sub bnCalculate_Click(sender As Object, e As EventArgs) Handles bnCalculate.Click
    Dim num1 As Decimal = Decimal.Parse(tbNum1.Text)
    Dim num2 As Decimal = Decimal.Parse(tbNum2.Text)

    Dim sum = num1 + num2
    Dim frac = sum - Math.Floor(sum)

    If frac >= 0.6 Then
        sum = Math.Ceiling(sum)
    End If

    tbSum.Text = sum.ToString("N2")

End Sub

需要修改代码才能正确处理负数。

我无法辨别您的某些代码的用途，例如第一次检查是否旨在限制输入的小数位数？有更简洁的方法可以做到这一点。

注意不要将Try...Catch 与空的Catch 部分一起使用，因为它会隐藏您的问题。