sexta-feira, 18 de agosto de 2017
assinantes
   Assinatura Ativo Access


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

Função para cálculo de financiamento
Autor:  Marcelo Santos do Nascimento (marcelosn@ig.com.br)
Publicado:  29/05/2005
Visitas: 4834
 
De: 'Marcelosn - IG - SP' Enviado: Thu May 5 9:24
Para: Prioridade: Normal
Assunto: FUNCAO PARA CALCULO DE FINANCIAMENTO Tipo: Embeded HTML/Text

Function Financia(Principal As Double, TaxaJurosMes As Double, Parcelas As Integer, Retorna) As Double
'+----------------------------------------------------------------------
'| TIPO = Function
'| FINALIDADE = Calcula o Valor de um Financiamento
'| CRIADO(A) POR = Rodrigo Rodrigues
'| DATA CRIAÇÃO = 20/jul/2004
'| ARGUMENTOS =
'| Principal -> Valor a ser Financiado
'| TaxaJurosMes -> Taxa de juros praticada ao mês
'| Parcelas -> Quantidade de Parcelas
'| Retorna -> Tipo de informação que será retornada, que pode ser:
'|
'| Retorna_Coeficiente -> Coeficiente de Cálculo
'| Retorna_JurosMesMoeda -> Juros ao Mês (R$)
'| Retorna_JurosTotalMoeda -> Juros Total (R$)
'| Retorna_Montante -> Montante (Principal + Juros) (R$)
'| Retorna_TaxaTotalPorcentagem -> Taxa Total (%)
'| Retorna_ValorParcela -> Valor da Parcela (R$)
'+----------------------------------------------------------------------

'Criando Variáveis para Manipulação das Informações
Dim vTaxaTotal As Double 'Taxa Total de Juros (%)
Dim vJurosTotal As Double 'Valor Total de Juros (R$)
Dim vJurosMes As Double 'Valor do Juros Mensal (R$)
Dim vCoeficiente As Double 'Valor do Coeficiente
Dim vValorParcela As Double 'Valor da Parcela (R$)
Dim vMontante As Double 'Montante (Soma de Todas as Parcelas - R$)

'Calculando o Ceficiente
vCoeficiente = Round((((1 + (TaxaJurosMes / 100)) ^ Parcelas) / Parcelas), 4)

'Calculando o Valor do Juros (Moeda) por Mês
vJurosMes = Round(((Principal * ((vCoeficiente * Parcelas) - 1)) / Parcelas), 2)

'Calculando o Total de Juros (Moeda)
vJurosTotal = Round((vJurosMes * Parcelas), 2)

'Calculando o Montante
vMontante = Round((Principal * vCoeficiente * Parcelas), 2)

'Calculando a Taxa Total de Juros
vTaxaTotal = Round(((vCoeficiente * Parcelas - 1) * 100), 2)

'Calculando o Valor da Parcela
vValorParcela = Round((Principal * vCoeficiente), 2)

'Definindo informação de Retorno
Financia = 0

Financia = IIf(Retorna = Retorna_Coeficiente, Format(vCoeficiente, "#0.0000"), Financia)
Financia = IIf(Retorna = Retorna_JurosMesMoeda, Format(vJurosMes, "##,##0.00"), Financia)
Financia = IIf(Retorna = Retorna_JurosTotalMoeda, Format(vJurosTotal, "##,##0.00"), Financia)
Financia = IIf(Retorna = Retorna_Montante, Format(vMontante, "##,##0.00"), Financia)
Financia = IIf(Retorna = Retorna_TaxaTotalPorcentagem, Format(vTaxaTotal, "#0.00"), Financia)
Financia = IIf(Retorna = Retorna_ValorParcela, Format(vValorParcela, "##,##0.00"), Financia)

Financia = CDbl(Financia)

End Function

  « Voltar

 

Assine AtivoAccess
     CD Ativo Access = R$ 44,70

 

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