按揭计算器余额计算错误

Question

我正在编写一个抵押计算器，它将填充 DataGridView 所有付款以及每次付款的利息和本金。然后最后一列是付款后的余额。

问题来了：

按揭付款、利息和本金计算都很好，但由于某些原因，余额计算似乎错误，因为在付款期结束时仍有大量余额。

我的代码可能很草率，因为我还是 vb 的新手。事实上，这是我的第一堂课。

---

Private Sub AmortButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AmortButton.Click 'initiate click event'
    Dim Amt As Double = Amount.Text() 'read in amount'
    Dim Intr As Double = Intrest.Text() 'read in intrest'
    Dim Yrs As Double = Term.Text() 'read in years'
    Dim payment As Double = (Yrs * 12) 'convert years to payment periods
    '
    Dim IntrDec As Double = ((Intr / 100) / 12) 'convert APR to monthly rate as a decimal'
    Dim TempAmt As Double = Amt 'setting Temperory balance
    For i As Double = 1 To payment Step i + 1 'setting for-loop paramaters'
        Dim MP = Math.Round((Pmt(IntrDec, payment, Amt) * -1), 2) 'calculate Mortgage payment'
        Dim IP = Math.Round((IPmt(IntrDec, i, payment, Amt) * -1), 2) 'calculate Intrest paid'
        Dim PP = Math.Round((PPmt(IntrDec, i, payment, Amt) * -1), 2) 'calculate priciple paid
        Amt = Amt - PP 'setting new balance'
        Dim RM = Math.Round((Amt), 2) 'rounding balance to two decimals'
        AmortTable.Rows.Add(i, MP, IP, PP, RM) 'adding row entry to table'
    Next 'end for-loop'

结束子

Answer 1

您的循环中有逻辑错误。每次循环运行时，您都会更改贷款金额

Amt = Amt - PP 'setting new balance'

我注意到你在循环上方声明了TempAmt，所以看起来你预计在某些时候需要它:);每次递减而不是 Amt 并分配给 RM

另外，STEP i+1 不是必需的，虽然它在这里有效，但并不完全正确。当循环初始化时，它将循环迭代设置为i 的值是 PLUS 1。在这里你很幸运，因为i 一开始就默认为零。最重要的是，STEP 应该是一个常量，因为默认值是 1，所以这里根本不需要它。

paulsm4 的建议也是正确的，但在像您这样的示例中，您可能会因此看到小的偏差 - 例如最后几美分左右。毫无疑问，浮点运算是您将在以后的课程中学习的主题。

Answer 2

与 VB.Net 本身无关。

问题在于浮点数是一种“近似值”——使用它们时有时会遇到“令人惊讶”的结果。同样，当您混合浮点（例如“Intr”）和整数（例如“Intr / 100”）时，您也可以获得“惊喜”。

建议：

尝试将“i”和“payment”改为“integer”，看看是否有不同的结果。

还有：

这些链接可能会有所帮助：

• http://www.codeproject.com/Articles/10143/Floating-Point-in-NET-part-1-Concepts-and-Formats

• http://www.vb-helper.com/tutorial_floating_point.html#SourcesOfErrors