Как я могу рассчитать стоимость кредита с капиталом и процентной ставкой?Vba

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) в терминах других, используя (pmt*nper)+pv+fv = 0, если коэффициент равен 0, и pv*((1+rate)^nper)+pmt*(1+rate*type)*((1+rate)^nper-1)/rate+fv = 0 в противном случае, где:

• pv - это текущая стоимость кредита или инвестиции и представляет текущую стоимость ряда будущих платежей.Например, когда вы одалживаете деньги, сумма, которую вы должны, является текущей стоимостью для кредитора.

• fv - это будущая стоимость или остаток денежных средств по кредиту или инвестициям после последнего платежа.

• ставка - это процентная ставка за период.

• nper - общее количество периодов платежей за срок действия кредита или инвестиции.

• pmt - фиксированный взносоплачивается в каждом периоде.Сумма взноса, как правило, включает компоненты, покрывающие как основную сумму, так и проценты, но может не включать комиссию по кредиту и т. Д. Это отрицательно, если вы заимствуете, поскольку представляет собой сумму, которую вы заплатите (т.е. отрицательный денежный поток).

• тип - это число 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 ,В противном случае вы можете определить процентную ставку только путем итерации (например, с помощью одной из приведенных выше формул).