Oi pessoal peço a ajuda de vcs de novo pra fazer um calculo de juros aqui, é o seguinte, tenho 5 campos texto, dia de Pagamento ( exemplo dia 12), data de Entrada (exemplo 12/05/05), Valor (exemplo 450,00) , Multa ( exemplo 2,00%) , dias ( exemplo 5 dias) , e todos esses campos sao exibidos em um Listview, assim
dia de Pagamento Data de Entrada dias atraso Valor Multa dias Valor Total
12 12/05/05 10 450,00 2,00 5 XXXX
eu fiz um codigo aki pra fazer o seguinte acrescentar 2% ao mes em cima desse 450,00 depois que o cara estiver devendo a mais de 5 dias e colocar na coluna Valor total , mas eu fiz o codigo e fica com o Valor 0, e eu nao sei mais como mexer alguem pode dar uma dica ai pra mim por favor, agradeço desde ja pessoal valew
Dim CalcDias As Variant
Dim Total As Currency
Dim Valor As Double
Dim Multa As Double
'se data de hj é maior q a data q ele tem q pagar a pessoa ta em atraso
If DataParcela <= Date Then
Atraso = (Date - DataParcela)
Else: Atraso = "S/ Atraso"
End If
'''''caculo de juros
Valor = (Valor) ' Valor do Documento
Multa = (Multa) ' Taxa de Juros do Documento
CalcDias = (DataParcela) - (Date)
'CalcDias =("Data_Entrada") - ("Data_Aluguel")
'CalcDias = ("Data_Aluguel") - ("Data_Entrada")
Total = (Resultado) 'Resultado da operação'
Total = (((Valor * Multa) * (CalcDias / 30)) + Valor)
'Multiplica valor com a taxa de juros com a quantidade de dias,'
'divide por 30 e soma ao valor do documento'
Resultado = Total
Atraso = (Date - DataParcela)
Set lista = ListView1.ListItems.Add(, , ListView1.ListItems.Count)
lista.SubItems(17) = Atraso
lista.SubItems(27) = Total
Loop
