Função VPL

Devolve um Valor duplo especificando o valor atual líquido de um investimento com base numa série de fluxos monetários periódicos (pagamentos e recibos) e uma taxa de desconto.

Sintaxe

VAL(taxa; valores( ))

A função VAL tem estes argumentos nomeados:

Sair	Descrição
taxa	Obrigatório. O dobro da especificação da taxa de desconto ao longo do período, expressa como decimal.
values( )	Obrigatório. Matriz de Duplo especificando valores de fluxo de caixa. A matriz tem de conter, pelo menos, um valor negativo (um pagamento) e um valor positivo (um recibo).

Comentários

O valor atual líquido de um investimento é o valor atual de uma série futura de pagamentos e recibos.

A função VAL utiliza a ordem dos valores na matriz para interpretar a ordem dos pagamentos e recibos. Certifique-se de que introduz os valores de pagamento e recibo na sequência correta.

O investimento em VAL 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 atual líquido baseia-se em fluxos monetários futuros. Se o primeiro fluxo de caixa ocorrer no início do primeiro período, o primeiro valor tem de ser adicionado ao valor devolvido pelo VAL e não pode ser incluído nos valores de fluxo de caixa dos valores( ).

A função VAL é semelhante à função VA (valor atual), exceto que a função VA permite que os fluxos de caixa comecem no final ou no início de um período. Ao contrário dos valores de fluxo de caixa val variáveis, os fluxos de caixa PV têm de ser fixos durante todo o investimento.

Exemplo

Este exemplo utiliza a função VAL para devolver o valor atual líquido de uma série de fluxos monetários contidos na matriz Values(). RetRate representa a taxa de retorno interna fixa.

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

• Funções (Visual Basic for Applications)

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.