|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Operações Matemáticas)
|
|
 |
Título da Dica: Cálculo de Juros
|
 |
|
|
|
Postada em 27/11/2003 por Josefh Hennyere
jhennyere@yahoo.com.br
Dim CalcDias As Variant 'Declara a variável CalcDias'
Dim Total As Variant 'Declara a variável Total'
Valor = (Valor) 'Valor do documento'
Juros = (Juros) 'Taxa de Juros do documento'
CalcDias = (Vencimento) - (Data) 'Calcula a quantidade de dias'
Total = (Resultado) 'Resultado da operação'
Total = (((Valor * Juros) * (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
End Sub
|
|
|
|
|
