12 replies to this topic

[Luis Otávio]

ta vai la... aqui vai minha duvida.. calculo de juros...

juros_am = "10" ' total de juros ao mes %
valor = "300,00" ' Valor total da compra
x = "3" ' numero de parcelas

como eu calculo este trumbiquetes para que de o valor certo de 10% ao mes de juros?

tentei assim:

juros_am = valor * juros_am / 100
valor = valor + juros_am

mas naum sei onde socar o numero de parcelas... heheheh

não sei se o codigo original ajuda muito... mas aqui ta

<%
'calcula o valor de cada parcela, e em quantas vezes o produto poderá ser parcelado e com quantas parcelas
'possui juros, e quantas não possui.
x = FormatCurrency(detalhe("preco"),2) ' valor do produto
y = detalhe("parcela") ' quantidade de parcelas
juros = detalhe("parcela_sem_juros") + 1 'parcelas sem jurtos
juros_am = detalhe("juros") ' % de juros ao mes.

response.Write"<td>"
For i = 1 To y
If (i-1) = Round(y/2,0) Then
%>

<%
If cor = "white" Then cor = "whitesmoke" Else cor = "white"
response.Write"</td>"
response.Write"<td>"
  End If


valor = FormatCurrency(Round(x/i, 1),2)
If juros > i Or juros = 0 Then
juro = "<b>sem juros</b>"
Else
' tiver algum juros, fazemos a conta de como ficará.
juro = "com juros"
juros_am = valor * juros_am / 100
valor = valor + juros_am
valor = FormatCurrency(valor)
end if
  Response.Write "<font color=999999>" & i & " x " &"</font>"& juro &"<font color=FF0000>"
  Response.Write ""& "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;" & valor &"</font>"
  response.Write "<br>"



Next
response.Write"</td>"
%>

quem será a alma caridosa que irá me ajudar? hehehee

[ashburner]

nao entendi direito, mas se vc fizer um for até a quantidade de parcelas e somando os valores sera q nao da certo?

[Luis Otávio]

o porem é como somar os valores da maneira correta.. por que o for eu ja to fazendo...

[ashburner]

tu diz somar certo quais valores?

[Luis Otávio]

do jeito q ta o codigo ali... ele ta apresentando os seguintes resultados:

1 x sem juros R$ 300,00
2 x com juros R$ 165,00
3 x com juros R$ 115,00
4 x com juros R$ 86,25
5 x com juros R$ 66,75
6 x com juros R$ 53,38
7 x com juros R$ 44,35
8 x com juros R$ 38,04
9 x com juros R$ 33,48
10 x com juros R$ 30,05
11 x com juros R$ 27,31
12 x com juros R$ 25,00

ta errado, ele num ta calculando os valores certos... quando chega na ultima parcela... ele ta sem juros nenhum... e como é 10% ao mes... tinha q ta um valor bem maior no final... o problema acho q nem é asp... hehe e sim logica de %

[ashburner]

eh verdadem pq ele tah diminuindo os valores.. soh q pra fazer a % eu tb me bato um monte, sempre tenho q pensar bastante pra ver como fazer..mas parece soh logica do calculo mesmo.

[felipecm]

do jeito q ta o codigo ali... ele ta apresentando os seguintes resultados:

1 x sem juros    R$ 300,00
2 x com juros    R$ 165,00
3 x com juros    R$ 115,00
4 x com juros    R$ 86,25
5 x com juros    R$ 66,75
6 x com juros    R$ 53,38
7 x com juros    R$ 44,35
8 x com juros    R$ 38,04
9 x com juros    R$ 33,48
10 x com juros    R$ 30,05
11 x com juros    R$ 27,31
12 x com juros    R$ 25,00

ta errado, ele num ta calculando os valores certos... quando chega na ultima parcela... ele ta sem juros nenhum... e como é 10% ao mes... tinha q ta um valor bem maior no final... o problema acho q nem é asp... hehe e sim logica de %

 

<%
  Dim Total

  Sub CalculaTotal (iTotal, iParcela, iJurosAM)
    Dim i

    For i = 1 to iParcela
      If i = 1 Then
        PorcTotal = PorcTotal & iTotal & "*"
      Else
        PorcTotal = PorcTotal & ((iTotal / i) + (iTotal / i) * iJurosAM / 100)  & "*"
      End If
    Next

    If Right(PorcTotal, 1) = "*" Then PorcTotal = Left(PorcTotal, Len(PorcTotal) - 1)

    If InStr(1, PorcTotal, "*") > 0 Then
      Total = Split(PorcTotal, "*")
    Else
      Redim Total(1)
      Total(0) = PorcTotal
    End if

  End Sub

  CalculaTotal 300, 12, 10

%>

<%
  Response.Write "<table border=0 width=400 align=center cellspacing=0 cellpadding=0>"
  For i = LBound(Total) to UBound(Total)
    If i mod 2 Then vCor = "#f0f0f0" Else vCor = "#ffffff"
    If i = 0 then vJur = "sem" Else vJur = "com"

    Response.Write "<tr><td bgcolor= '" & vCor & "'>"
    Response.Write CStr(i + 1) & " x </td><td bgcolor='" & vCor & "'>" & vJur & " juros </td>"
    Response.Write "<td bgcolor='" & vCor & "'>" & FormatCurrency(Total(i), 2) & "</td></tr>"
  Next
  Response.Write "</table>"

%>

Pior k e u nem coinferi deve tah errado se pah.. depois eu veju ai

Edição feita por: hdz*, 15/12/2004, 18:46.

[Prog]

Exemplo com função para o cálculo, só um detalhe, não é bom usar taxas muito altas, por exemplo, 10% ao mês, dividido em 12x, se o cara dividir em 12x a parcela fica mais cara do que o próprio produto. *rs*

<%
function taxaJurosCumulativo(valor,jurosmes,vezes)
  taxa = (jurosmes/100)+1
  for i=1 to vezes-1
    valor = valor * taxa
  next
  taxaJurosCumulativo = valor
end function

valordoproduto = 5000
juros = 1
totalvezes = 12

response.write "a vista R$" & taxaJurosCumulativo(valordoproduto,juros,1)
response.write "<br>"

for parcela = 2 to totalvezes
  response.write parcela & "x *R$"
  response.write taxaJurosCumulativo(valordoproduto,juros,parcela)/parcela
  response.write "<br>"
next

response.write "<br>*Juros de "& juros &"% ao mês."
%>

[Luis Otávio]

bha, brigadasso, pela ajuda que me deram, bha, nem sei como agradecer mesmo... salvaram uma vida... heheh... prog, hdz*... valeusss

uma unica pergunta tola q ficou...

porcentagem quebrada o certo é 4,5 ou 4.5

[Prog]

Melhor usar . (ponto), deixa seu sistema "internacionalizado".

Não sei ao certo, pode ser que ele funcione tanto com um como com outro (ponto ou vircula), talvez as configurações regionais do sistema tenha alguma influencia sobre isto.

[felipecm]

bha, brigadasso, pela ajuda que me deram, bha, nem sei como agradecer mesmo... salvaram uma vida... heheh... prog, hdz*... valeusss

uma unica pergunta tola q ficou...

porcentagem quebrada o certo é 4,5 ou 4.5

Na hora de instruções SQL, eu transformo para ponto , apenas com um replace simples.. mas no VB. eu sempre trabalho com virgula para realizar as operações.

[mcoelho80]

Para cálculo de juros compostos, uma simples conta resolve o problema.

Tomamos o seguinte exemplo:

<%

ValorCompra = 350.00

Juros = 1.05 ' (neste caso, acréscimo de 5% de juros, para 50% de juros seria 1.5, para 6.5% de juros seria 1.065 e assim por diante)

NParcelas = 12

' Esta variável terá o valor com juros compostos aplicados.
ValorFinal = ValorCompra * (Juros ^ NParcelas)

' No final, pode ser calculada o valor da parcela fixa
ValorParcela = ValorFinal / NParcelas

%>

Mas esta conta merece um cuidado especial. Caso a primeira parcela seja "a vista", no exemplo acima, teoricamente o correto seria descontar 1/12 do valor da compra, calcular o juros sobre 11/12, somar e efetuar a divisão no final.

Porém, muitas empresas com a tal mania de levar vantagem... cobram a primeira parcela "a vista" mas cobram juros já na primeira parcela.

[Luis Otávio]

ja consegui... e quem quiser ver como ficou...

http://www.iporto.co...to=IRI6CC1FI921

so naum lembro a taxa de juros q ta ali... heheheh... mas da certo eu ditando a partir de que parcela eu quero q começe a contar juros...