segunda-feira, 20 de novembro de 2017
assinantes
   Assinatura Ativo Access


Não Assinantes
ConteÚdo
DOWNLOADS
Interação
dicas aleatórias
Dicas

Funções Financeiras
Autor:  Marcelo Santos do Nascimento (marcelosn@ig.com.br)
Publicado:  05/05/2005
Visitas: 4805
 
De: 'Marcelosn - IG - SP' Enviado: Thu May 5 14:44

Para: Prioridade: Normal

Assunto: MAIS DICAS DE FUNÇÃO FINANCEIRA Tipo: Embeded HTML/Text


Estou enviado mais algumas funções para calculos financeiros para prestações que tem acrescimo ou diminuição mensal e queira ver os valores usar o Ctl+G no modulo ou implar outro função para gravar os dados acumulados no sistema. Espero ter ajudado.


Partes adaptada do site do Macoratti .NET para Access


' Suponha que você tenha emprestado R$ 30.000,00 a uma taxa de juros anual de 11,5% para ser pago em 3 anos com pagamentos feitos no final de cada mês. Vamos calcular o valor do pagamento mensal e total que você dever receber sobre o capital no período.
' Para resolver o problema basta aplicar a função : IPmt(rate, per, nper, pv[, fv[, due]])
' Vamos então identificar o valor de cada argumento:
' rate - a taxa de juros mensal é obtida dividindoo-se a taxa de juros anual por 12 => 0.115/12
' per - o período deverá estar compreendido entre 1 e 36 ( 3 anos)
' nper - o número de pagamentos => 36
' pv - o valor atual => 30.000,00
' fv - será omitido => 0
' due - o pagamento será feito no ínicio de cada mês => 1
' Teremos então : lPmt(0.009583333, 1-36, 36, -30.000, 0, 1)

Function Financeiras()
'IPmt(rate, per, nper, pv[, fv[, due]])
'lPmt(0.009583333, 1-36, 36, -30.000, 0, 1)
Dim pv, fv, nper As Double
Dim rate, Pagamento, Total As Single
pv = 30000
fv = 0
rate = 0.115 / 12
nper = 3 * 12
Dim per As Integer
For per = 1 To nper
Pagamento = IPmt(rate, per, nper, -pv, fv, 1)
'Console.WriteLine (" mês " & per & " : " & Pagamento)
Total = Total + Pagamento
Debug.Print (" mês " & per & " : " & Pagamento)
Next
MsgBox ("Total dos juros no período : " & Total)
End Function



' O pagamento aumenta com o tempo . O valor total será igual ao montante do capital.
'O valor total incluindo os juros será a soma de lPmt() e PPmt().
Function financeira2()
'PPmt(rate, per, nper, pv[, fv[, due]])
'lPmt(0.009583333, 1-36, 36, -30.000, 0, 1)
Dim pv, fv, nper As Double
Dim rate, Pagamento, Total As Single
pv = 30000
fv = 0
rate = 0.115 / 12
nper = 3 * 12
Dim per As Integer
For per = 1 To nper
Pagamento = PPmt(rate, per, nper, -pv, fv, 1)
'Console.WriteLine (" mês " & per & " : " & Pagamento)
Total = Total + Pagamento
Debug.Print (" mês " & per & " : " & Pagamento)
Next
MsgBox ("Total do pagamento do principal : " & Total)

End Function


'Valor de Retorno : retorna um Double representando o pagamento(principal e juros) para uma anuidade baseada
'em um período com pagamentos e taxa de juros fixos.

Function financeira3()
'Pmt(rate, nper, pv[, fv[, due]])
'Pmt(0.009583333, 36 , 30000 , 0 , 1)
Dim pv, fv, nper As Double
Dim rate, Pagamento, Total As Single
pv = 30000
fv = 0
rate = 0.115 / 12
nper = 3 * 12
Dim per As Integer
For per = 1 To nper
Pagamento = pmt(rate, nper, -pv, fv, 1)
Total = Total + Pagamento
Debug.Print (" mês " & per & " : " & Pagamento)
Next
MsgBox ("Total do pagamento do principal : " & Total)
End Function

Function financeira4()
'FV(rate, nper, pmt [, pv [, due]])
'Vamos supor que você deseja calcular o valor futuro de um investimento
'com uma taxa de juros de 6,25% ANUAL, 48 pagamentos mensais de R$ 180,00 ,
'e um valor presente de R$ 12.000,00.
Dim pv, valor As Double
Dim rate, pmt As Double
Dim nper As Integer
pmt = 180
rate = 6.25 / 100
nper = 48
pv = 12000
Debug.Print ("Investimento : " & pv)
Debug.Print ("Taxa de juros : " & (rate / 12))
Debug.Print ("No de pagamentos : " & nper)
Debug.Print ("Valor pgto mensal : " & pmt)
Debug.Print ("")
valor = fv(rate / 12, nper, -pmt, -pv)
MsgBox ("Após " & nper & " meses seus retorno será de : R$ " & valor)

End Function

  « Voltar

   Copyright © Ativo Access 2003 - 2017- Todos os direitos reservados   Política de Privacidade | Fale conosco