Observação
O acesso a essa página exige autorização. Você pode tentar entrar ou alterar diretórios.
O acesso a essa página exige autorização. Você pode tentar alterar os diretórios.
Retorna um Double especificando o valor líquido atual de um investimento com base em uma série de fluxos de caixa periódicos (pagamentos e recebimentos) e uma taxa de desconto.
Sintaxe
VPL(taxa, valores( ))
A função VPL tem estes argumentos nomeados:
| Sair | Descrição |
|---|---|
| taxa | Obrigatório. Especificando a taxa de desconto duas vezes ao longo do período, expressa como um decimal. |
| values( ) | Obrigatório. Matriz de Duplo especificando valores de fluxo de caixa. A matriz deve conter pelo menos um valor negativo (um pagamento) e um valor positivo (um recebimento). |
Comentários
O valor presente líquido de um investimento é o valor atual de uma série futura de pagamentos e recebimentos.
A função VPL usa a ordem dos valores dentro da matriz para interpretar a ordem de pagamentos e recebimentos. Insira os valores de pagamento e recebimento na sequência correta.
O investimento de VPL começa um período antes da data do primeiro valor de fluxo de caixa e termina com o último valor de fluxo de caixa na matriz.
O cálculo do valor presente líquido é baseado nos fluxos de caixa futuros. Se o seu primeiro fluxo de caixa ocorrer no início do primeiro período, o primeiro valor deve ser adicionado ao valor retornado pelo VPL e não deve ser incluído nos valores de valores do fluxo de caixa( ).
A função VPL é semelhante à função VP (valor presente), exceto que a função VP permite que os fluxos de caixa comecem no final ou no início de um período. Ao contrário dos valores variáveis do fluxo de caixa do VPL , os fluxos de caixa PV devem ser fixos ao longo do investimento.
Exemplo
Este exemplo usa a função VPL para retornar o valor líquido presente de uma série de fluxos de caixa contidos na matriz Values().
RetRate representa a taxa interna fixa de retorno.
Dim Fmt, Guess, RetRate, NetPVal, Msg
Static Values(5) As Double ' Set up array.
Fmt = "###,##0.00" ' Define money format.
Guess = .1 ' Guess starts at 10 percent.
RetRate = .0625 ' Set fixed internal rate.
Values(0) = -70000 ' Business start-up costs.
' Positive cash flows reflecting income for four successive years.
Values(1) = 22000 : Values(2) = 25000
Values(3) = 28000 : Values(4) = 31000
NetPVal = NPV(RetRate, Values()) ' Calculate net present value.
Msg = "The net present value of these cash flows is "
Msg = Msg & Format(NetPVal, Fmt) & "."
MsgBox Msg ' Display net present value.
Confira também
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.