|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Operações Matemáticas)
|
|
 |
Título da Dica: Calculo de Juro Composto
|
 |
|
|
|
Postada em 14/7/2003 por Dahmer
cesarcdahmer@bol.com.br
'coloque no form 3 textbox com o nome: Capital; Taxa; Tempo e acrescente o código em um botão de comando.
Dim CapitalT As Currency
Dim Juro As Currency
Dim I As Integer
'limpa a tela
Me.Cls
'a variável CapitalT conterá o valor da textbox Capital
CapitalT = Capital.Text
'a variável Juro conterá o valor da textbox Capital
Juro = Capital.Text
'o loop começara de 1 até o número valor da textbox tempo
For I = 1 To Tempo.Text
'a variavel obterá o calculo do juro simples mensal
CapitalT = CapitalT + (Juro * ((Taxa.Text / 100)))
Juro = (Juro * (1 + (Taxa.Text / 100)))
'será impresso no form uma linha para cada mês
Print "Capital acumulado do mês: " & I & " " & Format(CapitalT, "R$ #,###,###,##0.00")
Next I
|
|
|
|
|
