|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Operações Matemáticas)
|
|
 |
Título da Dica: Calcular Juro Composto (Popular Juro sobre Juro)
|
 |
|
|
|
Postada em 11/8/2003 por The Ñëëñjå
Tá certo que na maioria dos casos, este tipo de cálculo (Conhecido como Juros sobre Juros) é ilegal, mas nesse nosso País isso se torna rotina...
Pra quem precisar "meter-a-faca" no cliente, aí vai um jeito simples de calcula isso !
'No Módulo
Function CalculaJuroComposto(ByVal sngValor As Single, ByVal sngTaxa As Single, ByVal dtVencimento As Date) As Single
Dim iMes As Integer 'Total de Meses
Dim lDias As Long 'Total de Dias
Dim lSobra As Long 'Dias que não completam 1 Mês
Dim Ind As Integer
Dim dtAtual As Date
dtAtual = Date
lDias = DateDiff("d", dtVencimento, dtAtual)
If lDias > 30 Then
iMes = DateDiff("m", dtVencimento, dtAtual)
End If
'Calcula Juro Sobre Juro Para Cada Mes
For Ind = 1 To iMes
sngValor = sngValor + ((sngValor * sngTaxa) / 100)
Next Ind
'Baseado no Padrão de Meses com 30 Dias
lSobra = lDias Mod 30
'Calcula o Juro dos Dias Restantes
If lSobra <> 0 Then
sngTaxa = sngTaxa / 30
sngTaxa = sngTaxa * lSobra
sngValor = sngValor + ((sngValor * sngTaxa) / 100)
End If
CalculaJuroComposto = sngValor
End Function
'No Form, chame a rotina desta forma:
txtValor.Text = CalculaJuroComposto(Valor_do_Debito, Taxa_Mensal_de_Juros, Data_de_Vencimento_do_Debito)
|
|
|
|
|
