Question

我正在以开发人员的身份进行实习，这是一项艰巨的任务。我有一个“贷款文本”，有3个字段为空白，“贷款”，“资本”和“利率”。我已经创建了，它看起来像这样：

    Private Sub l_jahre_Click()

End Sub

Private Sub txt_abtrag_Change()
    CalculateFormular
End Sub

Private Sub txt_darlehen_Change()
    CalculateFormular
End Sub

Private Sub txt_zinssatz_Change()
    CalculateFormular
End Sub

Private Sub CalculateFormular()
    If (validate()) Then
        Debug.Print "Success"
    End If
End Sub


Private Function validate() As Boolean
    validate = True
    On Error GoTo x
    a = CDbl(txt_abtrag.Value) + CDbl(txt_darlehen.Value) + CDbl(txt_zinssatz.Value)
    Exit Function
x:
    validate = False
End Function

Public Sub test2()
    'Debug.Print txt_zinssatz.Value
    l_zinsen.Caption = "inf."
End Sub

不要介意它们xd的价值

现在，我需要像我说的那样，用资本和利率计算贷款成本。

我需要填充它，看起来像这样。

Public Function GetTotalCost(ByVal capital As Double, ByVal rate As Double) As Double
    GetTotalCost = 0
End Function

Public Function GetRentTime(ByVal capital As Double, ByVal rate As Double, ByVal monthPay As Double) As Double
    GetRentTime = 0
End Function

请不要说完整的代码或完整的答案，我只需要一些帮助即可了解以及应该使用哪种方法。谢谢您的帮助。

Answer 1

下面的每个财务公式都用另一个来解决一个财务参数（PV，FV，PMT，NPER），如果比率为0，则使用(pmt*nper)+pv+fv = 0，否则使用pv*((1+rate)^nper)+pmt*(1+rate*type)*((1+rate)^nper-1)/rate+fv = 0，其中： / p>

•pv是贷款或投资的现值，表示一系列未来付款的现值。例如，当您借钱时，您欠的金额就是贷方的现值。

•fv是终值，或最后一次付款后的贷款或投资的现金余额。

•利率是每个期间的利率。

•nper是贷款或投资期内的还款期总数。

•pmt是每个期间支付的固定分期付款。分期付款金额通常包括可以支付本金和利息的部分，但可能不包括贷款费用等。如果您是借款人，这是负数，因为它代表您将要支付的钱（即负现金流量）。

•type是数字0或1，表示分期付款的时间。 0表示在期末付款，1表示在期初付款。同样，有些贷款以期初未偿还的金额为基础收取利息，而其他贷款则以期末未偿还的基础上收取利息。

求解终值，公式为：

fv=-if(rate=0,pmt*nper+pv,(pv*((1+rate)^nper)+pmt*(1+rate*type)*((1+rate)^nper-1)/rate))

求解当前值，公式为：

pv=-if(rate=0,pmt*nper+fv,(fv+pmt*(1+rate*type)*((1+rate)^nper-1)/rate)/((1+rate)^nper))

求解支付值，公式为：

pmt=-if(rate=0,(pv+fv)/nper,(pv*((1+rate)^nper)+fv)/((1+rate*type)*((1+rate)^nper-1)/rate))

求解周期数，公式为：

nper=-if(rate=0,(pv+fv)/pmt,(log(1+(pv+pmt*type)/pmt*rate)-log(1+(fv+pmt*type)/pmt*rate))/log(1+rate))

求解利率，公式为：

rate=(fv/pv)^(1/nper)-1

提供的pmt为0 。否则，您只能通过迭代求解利率（例如，使用以上公式之一）。

我如何用资本和利率计算贷款成本？ Vba

1 个答案: