Como usar a função Pmt no VBA?

A função `Pmt` no VBA (Visual Basic for Applications) é usada para calcular o pagamento periódico de um empréstimo ou de uma anuidade com base em pagamentos constantes e uma taxa de juros constante. A sintaxe da função `Pmt` é a seguinte:

Pmt(rate, nper, pv, [fv], [type])

Aqui está uma explicação dos argumentos:

  • `rate`: Taxa de juros por período. Por exemplo, se você tem uma taxa de juros anual de 6%, você deve dividir por 12 se for calcular pagamentos mensais, ou seja, `0.06 / 12`.
  • `nper`: Número total de pagamentos (períodos) na anuidade. Por exemplo, para um empréstimo de 5 anos com pagamentos mensais, esse número seria 5 * 12 (60).
  • `pv`: Valor presente, ou o valor total que uma série de futuros pagamentos vale atualmente. É o principal do empréstimo ou o valor presente da anuidade.
  • `fv` (opcional): Valor futuro ou saldo que você deseja alcançar após a última parcela. Se omitido, será considerado como 0.
  • `type` (opcional): Indica quando os pagamentos são devidos. Use 0 se os pagamentos forem no final do período (padrão) e 1 se os pagamentos forem no início do período.

Exemplo de uso da função `Pmt` no VBA:

Sub CalcularPagamentoMensal()
    Dim taxaJuros Anual As Double
    Dim numeroPeriodos As Integer
    Dim valorPresente As Double
    Dim pagamentoMensal As Double
    
    ' Definindo os valores
    taxaJurosAnual = 0.06      ' 6% ao ano
    numeroPeriodos = 5 * 12    ' 5 anos, pagamentos mensais
    valorPresente = 10000      ' Valor do empréstimo
    
    ' Calculando o pagamento mensal
    pagamentoMensal = Pmt(taxaJurosAnual / 12, numeroPeriodos, -valorPresente)
    
    ' Mostrando o resultado
    MsgBox "O pagamento mensal é: " & Format(pagamentoMensal, "Currency")
End Sub

Neste exemplo, a função `Pmt` calcula os pagamentos mensais para um empréstimo de R$10.000,00 a uma taxa de juros de 6% ao ano, durante 5 anos. Note que o valor presente (`valorPresente`) é um valor negativo porque representa uma saída de dinheiro, um empréstimo que foi dado.

Unlock Your Potential

Excel

Basic - Advanced

Access

Access Basic - Advanced

Power BI

Power BI Basic - Advanced

Help us grow the project