Função Pgto

Aplica-se A
Access para Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

Devolve um valor Duplo a especificar o pagamento de uma anuidade com base em pagamentos fixos, periódicos e uma taxa de juros fixa.

Sintaxe

Pgto(taxa,nper,va [, vf ] [, tipo ] )

A sintaxe da função Pgto tem os seguintes argumentos:

Argumento Descrição
Taxa Obrigatório. Valor Duplo a especificar a taxa de juros por período. Por exemplo, se obter um empréstimo automóvel a uma taxa percentual anual (APR) de 10 por cento e efetuar pagamentos mensais, a taxa por período é 0,1/12 ou 0,0083.
nper Obrigatório. Número inteiro a especificar o número total de períodos de pagamento na anuidade. Por exemplo, se fizer pagamentos mensais num empréstimo automóvel de 4 anos, o seu empréstimo tem um total de 4 * 12 (ou 48) períodos de pagamento.
Va Obrigatório. Especificar duas vezes o valor atual (ou montante fixo) que uma série de pagamentos a serem pagos no futuro vale agora. Por exemplo, quando pede dinheiro emprestado para comprar um carro, o valor do empréstimo é o valor atual para o credor dos pagamentos mensais do carro que você fará.
VF Opcional. Variante a especificar o valor futuro ou saldo em dinheiro que deseja atingir após o último pagamento ter sido efetuado. Por exemplo, o valor futuro de um empréstimo é 0 € porque é o seu valor após o pagamento final. No entanto, se quiser poupar 50 000 € ao longo de 18 anos para a educação dos seus filhos, 50 000 € é o valor futuro. Se for omitido, é assumido 0.
tipo Opcional. Variante a especificar quando os pagamentos devem ser efetuados. Utilize 0 se os pagamentos ocorrerem no final do período do pagamento ou 1 se os pagamentos ocorrerem no início do período. Se for omitido, é assumido 0.

Observações

Uma anuidade é uma série de pagamentos fixos em dinheiro efetuados durante um período de tempo. Uma anuidade pode ser um empréstimo (como uma hipoteca de casa) ou um investimento (como um plano de poupanças mensal).

Os argumentos taxa e nper têm de ser calculados utilizando períodos de pagamento expressos nas mesmas unidades. Por exemplo, se taxa for calculada usando meses, nper também deve ser calculado usando meses.

Para todos os argumentos, o numerário pago (tal como depósitos em poupanças) é representado por números negativos e o dinheiro recebido (tal como cheques de dividendos) é representado por números positivos.

Exemplo de consulta

Expressão Resultados
SELECT PMTSample.*, Pgto([TaxaAnual]/12,[TermInYears]*12,-[LoanAmount],0,0) AS MonthlyRepayments FROM PMTSample; Devolve todos os campos da tabela "PMTSample", calcula os pagamentos mensais fixos necessários para pagar o "LoanAmount" com base na "AnnualRate" e apresenta os resultados na coluna MonthlyRepayments.

Exemplo do VBA

Nota

Os exemplos seguintes demonstram a utilização desta função no módulo VBA (Visual Basic for Applications). Para obter mais informações sobre como trabalhar com o VBA, selecione Referência para Programadores na lista pendente junto a Procurar e introduza um ou mais termos na caixa de pesquisa.

Este exemplo utiliza a função Pgto para devolver o pagamento mensal de um empréstimo durante um período fixo. Dado são a taxa de juro percentual por período (APR / 12), o número total de pagamentos (TotPmts), o valor presente ou capital do empréstimo (PVal), o valor futuro do empréstimo (FVal), e um número que indica se o pagamento é devido no início ou no final do período de pagamento (PayType).

Dim Fmt, FVal, PVal, APR, TotPmts, PayType, Payment
' When payments are made.
Const ENDPERIOD = 0, BEGINPERIOD = 1    
Fmt = "###,###,##0.00"    ' Define money format.
FVal = 0    ' Usually 0 for a loan.
PVal = InputBox("How much do you want to borrow?")
APR = InputBox("What is the annual " & _
      "percentage rate of your loan?")
If APR > 1 Then APR = APR / 100 ' Ensure proper form.
TotPmts = InputBox("How many monthly " & _
          "payments will you make?")
PayType = MsgBox("Do you make payments " & _
          "at the end of month?", vbYesNo)
If PayType = vbNo Then
    PayType = BEGINPERIOD 
    Else PayType = ENDPERIOD
End If
Payment = Pmt(APR / 12, TotPmts, -PVal, FVal, PayType)
MsgBox "Your payment will be " & _
    Format(Payment, Fmt) & " per month."