USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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)
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página