Função IPmt

Artigo
08/25/2010

Retorna um Double especificando o pagamento de juros para um determinado período de uma anuidade com base em pagamentos fixos e periódicos e uma taxa de juros fixa.

Function IPmt( _
   ByVal Rate As Double, _
   ByVal Per As Double, _
   ByVal NPer As Double, _
   ByVal PV As Double, _
   Optional ByVal FV As Double = 0, _
   Optional ByVal Due As DueDate = DueDate.EndOfPeriod _
) As Double

Parâmetros

Rate
Obrigatório.Double especificando a taxa de juros por período. Por exemplo, se você obtiver um empréstimo de carro com uma taxa percentual anual (APR) de 10 % e fizer pagamentos mensais, a taxa por período é 0,1 / 12, ou 0,0083.
Per
Obrigatório.Double especificando o período de pagamento no intervalo 1 através de NPer.
NPer
Obrigatório.Double Especifica o número total de períodos de pagamento da anuidade. Por exemplo, se você fizer pagamentos mensais por um empréstimo de carro de quatro anos, o empréstimo terá um total de 4 x 12 (ou 48) períodos de pagamento.
PV
Obrigatório.Double especificando presente de valor ou valor hoje em dia, de uma série de futuros pagamentos ou recebimentos. Por exemplo, quando você pedir dinheiro emprestado para comprar um carro, valor do empréstimo é o valor atual para o credor dos pagamentos mensais do carro que você fará.
FV
Opcional.Double especificando o valor futuro ou o Equilíbrio em dinheiro desejado após ter feito o pagamento final. Por exemplo, o valor futuro de um empréstimo é $ 0 porque esse é seu valor após o pagamento final.Entretanto, se você quiser economizar $50,000 durante 18 anos para a educação de seu filho, então $50,000 é o valor futuro.Se omitido, 0 será adotado.
Due
Opcional.Objeto do tipo Enumeração DueDate que especifica quando os pagamentos devem ser feitos.Esse argumento deve ser DueDate.EndOfPeriod se os pagamentos devem ser feitos ao final do período de pagamento, ou DueDate.BegOfPeriod se os pagamentos devem ser feitos no início do período.Se omitido, DueDate.EndOfPeriod será adotado.

Exceções

Tipo de exceção	Número de erro	Condição
ArgumentException	5	Per<= 0 ou Per> NPer

Ver a coluna " número de erro " se você estiver atualizando aplicativos Visual Basic 6.0 que usam manipulação de erros não estruturada.(Você pode comparar o número do erro com a Propriedade do Número (Erro de objeto).) Entretanto, quando for possivel, você pode considerar substituir tal controle de erro por Visão Geral sobre a Manipulação Estruturada de Exceções para o Visual Basic.

Comentários

Uma anuidade é uma série de pagamentos dinheiro fixo feitas ao longo do tempo.Uma anuidade pode ser um empréstimo (como uma hipoteca doméstica) ou um investimento (como um plano de economias mensais).

Os argumentos Rate e NPer devem ser calculados utilizando períodos de pagamento expressos nas mesmas unidades.Por exemplo, se Rate for calculado utilizando meses, NPer deve também ser calculado utilizando meses.

Para todos os argumentos, dinheiro pago (como depósito em poupança) é representado por números negativos e dinheiro recebido (como cheques de dividendos) é representado por números positivos.

Exemplo

Este exemplo usa o IPmt função para calcular quanto de um pagamento de juros é quando todos os pagamentos são de igual valor. Dada a taxa de porcentagem de juros por período ( sãoAPR / 12), o período de pagamento para o qual a parte de juros é desejada ()Period), o número total de pagamentos ()TotPmts), o valor presente ou princípio de que o empréstimo (PVal), o valor futuro de (empréstimoFVal) e um número que indica se o pagamento vence no início ou participante de no (período de pagamentoPayType).

Sub TestIPMT()
    Dim APR, PVal, Period, IntPmt, TotInt, TotPmts As Double
    Dim PayType As DueDate
    Dim Response As MsgBoxResult

    ' Usually 0 for a loan.
    Dim Fval As Double = 0
    ' Define money format.
    Dim Fmt As String = "###,###,##0.00"
    PVal = CDbl(InputBox("How much do you want to borrow?"))
    APR = CDbl(InputBox("What is the annual percentage rate of your loan?"))
    If APR > 1 Then APR = APR / 100 ' Ensure proper form.
    TotPmts = CInt(InputBox("How many monthly payments?"))
    Response = MsgBox("Do you make payments at end of the month?", MsgBoxStyle.YesNo)
    If Response = MsgBoxResult.No Then
        PayType = DueDate.BegOfPeriod
    Else
        PayType = DueDate.EndOfPeriod
    End If
    For Period = 1 To TotPmts   ' Total all interest.
        IntPmt = IPmt(APR / 12, Period, TotPmts, -PVal, Fval, PayType)
        TotInt = TotInt + IntPmt
    Next Period

    ' Display results.
    MsgBox("You will pay a total of " & Format(TotInt, Fmt) & _
        " in interest for this loan.")
End Sub

Requisitos

Namespace:Microsoft.VisualBasic

**Módulo:**Financial

Assembly: Visual Basic Runtime Library (em Microsoft.VisualBasic.dll)

Consulte também

Referência

Resumo financeiro

ArgumentException

Compartilhar via