FAZER CALCULO DE JURO COMPOSTO COM DIAS
Private Sub cmdCalcular_Click()
Dim Valor 'em moeda (R$)
Dim Tempo 'em dias (38 dias)
Dim Taxa '6% ao mês (mensal)
'Recebe os valores dos TXTS
Valor = txtValor.Text
Tempo = txtTempo.Text
Taxa = txtTaxa.Text
'Conversão da taxa mensal para taxa diária
'é o que o tio Max disse: equivalência de taxas (MF)
Taxa = ((1 + (6 / 100)) ^ (1 / 30) - 1)
'Agora é usar a formula de juros compostos
txtResultado.Text = Valor * (1 + Taxa) ^ Tempo
End Sub
Dim Valor 'em moeda (R$)
Dim Tempo 'em dias (38 dias)
Dim Taxa '6% ao mês (mensal)
'Recebe os valores dos TXTS
Valor = txtValor.Text
Tempo = txtTempo.Text
Taxa = txtTaxa.Text
'Conversão da taxa mensal para taxa diária
'é o que o tio Max disse: equivalência de taxas (MF)
Taxa = ((1 + (6 / 100)) ^ (1 / 30) - 1)
'Agora é usar a formula de juros compostos
txtResultado.Text = Valor * (1 + Taxa) ^ Tempo
End Sub
Private Sub cmdCalcular_Click()
Dim Valor 'em moeda (R$)
Dim Tempo 'em dias (38 dias)
Dim Taxa '6% ao mês (mensal)
'Recebe os valores dos TXTS
Valor = txtValor.Text
Tempo = txtTempo.Text
Taxa = txtTaxa.Text
'Conversão da taxa mensal para taxa diária
'é o que o tio Max disse: equivalência de taxas (MF)
Taxa = ((1 + (6 / 100)) ^ (1 / 30) - 1)
'Agora é usar a formula de juros compostos
txtResultado.Text = Valor * (1 + Taxa) ^ Tempo
End Sub
Dim Valor 'em moeda (R$)
Dim Tempo 'em dias (38 dias)
Dim Taxa '6% ao mês (mensal)
'Recebe os valores dos TXTS
Valor = txtValor.Text
Tempo = txtTempo.Text
Taxa = txtTaxa.Text
'Conversão da taxa mensal para taxa diária
'é o que o tio Max disse: equivalência de taxas (MF)
Taxa = ((1 + (6 / 100)) ^ (1 / 30) - 1)
'Agora é usar a formula de juros compostos
txtResultado.Text = Valor * (1 + Taxa) ^ Tempo
End Sub
Eu fiz assim:
Private Sub cmdCalcular_Click()
Dim Valor As Currency
Dim Tempo As Integer
Dim Taxa As Single
Valor = txtTotal.Text
Tempo = txtDias.Text
Taxa = txtPorc.Text
Taxa = [txt-color=#008000]((1 + (6 / 100)) ^ (1 / 30) - 1)[/txt-color]
txtResultado.Text = FormatCurrency(Valor * ([txt-color=#008000]1 [/txt-color]+ Taxa) ^ Tempo)
End Sub
e o resultado deu: R$ 12.919,19
Não sei se está certo, pois não possuo calculadora financeira...
...mas minha pergunta é na verdade outra:
-nessa linha que coloquei "verde", vejo que possui varios numeros definidos, por exemplo: esse 6/100 esse 6 quer dizer o juros por mes? caso eu mude o juros lá no txtPorc já num vai dar certo o resultado? como ficaria essa mesma formula inves de usar numeros definidos no codigo, usar os numeros que estão nos textbox.
Grato a todos
Private Sub cmdCalcular_Click()
Dim Valor As Currency
Dim Tempo As Integer
Dim Taxa As Single
Valor = txtTotal.Text
Tempo = txtDias.Text
Taxa = txtPorc.Text
Taxa = [txt-color=#008000]((1 + (6 / 100)) ^ (1 / 30) - 1)[/txt-color]
txtResultado.Text = FormatCurrency(Valor * ([txt-color=#008000]1 [/txt-color]+ Taxa) ^ Tempo)
End Sub
e o resultado deu: R$ 12.919,19
Não sei se está certo, pois não possuo calculadora financeira...
...mas minha pergunta é na verdade outra:
-nessa linha que coloquei "verde", vejo que possui varios numeros definidos, por exemplo: esse 6/100 esse 6 quer dizer o juros por mes? caso eu mude o juros lá no txtPorc já num vai dar certo o resultado? como ficaria essa mesma formula inves de usar numeros definidos no codigo, usar os numeros que estão nos textbox.
Grato a todos
Alguem
?
?
Sim, sim
6 = taxa de juros
mas 1/30 corresponde ao nº de dias por mes
e o (1+Taxa) é para cauculo de pocentagem, para que a multiplicação fique tipo 106%*valor
Portanto altere apenas o "6" para taxa
6 = taxa de juros
mas 1/30 corresponde ao nº de dias por mes
e o (1+Taxa) é para cauculo de pocentagem, para que a multiplicação fique tipo 106%*valor
Portanto altere apenas o "6" para taxa
Como eu não tenho Calculadora Financeira, tem como alguem fazer o calculo ai para ver se está dando centro
Valor = 12000
Juros/mes = 6%
Num. de Dias = 38
TOTAL = R$ 12.919,19
Esse valor tá certo?
Valor = 12000
Juros/mes = 6%
Num. de Dias = 38
TOTAL = R$ 12.919,19
Esse valor tá certo?
Tópico encerrado , respostas não são mais permitidas