0

因此，我正在尝试制作一个程序，在给定期限和利率的情况下，计算您每月需要储蓄的金额以累积特定金额。但是它给出了错误的数量，我不知道为什么。例如，当给定一个期望的累积金额 40,000、20 年的期限和 6% 的利率时，它应该得到每月 86.57 美元，但它给出了一些其他金额。任何帮助将不胜感激。

Option Explicit On
Option Strict On
Option Infer Off

Public Class frmMain

Private Sub btnExit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnExit.Click
    Me.Close()
End Sub

Private Sub ClearSavings(ByVal sender As Object, ByVal e As System.EventArgs) _
    Handles txtFuture.TextChanged, txtTerm.TextChanged, txtRate.TextChanged

    lblSave.Text = String.Empty
End Sub

Private Sub btnCalc_Click(sender As Object, e As EventArgs) Handles btnCalc.Click
    Dim dblFuture As Double
    Dim dblTerm As Double
    Dim dblRate As Double
    Dim dblSave As Double

    Double.TryParse(txtFuture.Text, dblFuture)
    Double.TryParse(txtTerm.Text, dblTerm)
    Double.TryParse(txtRate.Text, dblRate)

    'Convert to decimal
    If dblRate >= 1 Then
        dblRate = dblRate / 100
    End If

    'calculate the savings per month
    dblSave = -Financial.Pmt(dblRate, dblTerm, 0, dblFuture)
    lblSave.Text = dblSave.ToString("C2")

End Sub

结束类

4

0 回答 0