Juros da minha loja com conferem com o pagseguro

[Dell 0]

Eu isolei o código que utilizo para fazer o calculo, porém não confere com o resultado apresentado pelo pagseguro.

 

<%

cartao_iniciojuros=2

cartao_parcelas = "12"

juros_pagseguro = "1,99"

juros_cartao = ccur(juros_pagseguro)/100

response.write juros_cartao

te_limite_cartao_parcelamento = "20"

precitonx="2499,00"

te_moeda_cotacao =1

 

If Cint(cartao_parcelas) > 1 Then

 

valor = Formatnumber(precitonx,0)

 

For npar = 1 to cartao_parcelas

If cartao_iniciojuros <= npar And cartao_iniciojuros <> 0 Then valor = (valor*(1+FormatNumber(juros_cartao))^npar)/npar Else valor = valor/npar

 

If ccur(te_limite_cartao_parcelamento) >= ccur(valor) Then Exit For

Next

If Int(npar) > 2 Then

 

Response.Write "<tr>" & VbCrLf

Response.Write "<td colspan=2 align=center>" & VbCrLf

Response.Write "<table width=100% border=0 cellspacing=1 cellpadding=2 class=texto>" & VbCrLf

Response.Write "<tr>" & VbCrLf

Response.Write "<td colspan=4 bgcolor=gray align=center><font color='#FFFFFF'><b>Parcelamento com PagSeguro</b></font></td>" & VbCrLf

Response.Write "</tr>" & VbCrLf

Response.Write "<tr bgcolor=gainsboro align=center>" & VbCrLf

Response.Write "<td>Número de Parcelas</td>" & VbCrLf

Response.Write "<td>Valor da Parcela</td>" & VbCrLf

Response.Write "<td>Número de Parcelas</td>" & VbCrLf

Response.Write "<td>Valor da Parcela</td>" & VbCrLf

Response.Write "</tr>" & VbCrLf

For i = 1 to Fix((cartao_parcelas / 2)+0.5)

If cor = "white" Then cor = "whitesmoke" Else cor = "white"

Response.Write "<tr>"

texto = ""

texto = texto & "<td nowrap bgcolor=" & cor & ">"

texto = texto & i & "X"

If cartao_iniciojuros > i Or cartao_iniciojuros = 0 Then texto = texto & " <b>sem juros</b>" Else texto = texto & " com juros"

texto = texto & "</td>"

texto = texto & "<td nowrap bgcolor=" & cor & ">"

 

valor = Formatnumber(precitonx,0)

 

 

 

If cartao_iniciojuros <= i And cartao_iniciojuros <> 0 Then valor = (valor*(1+FormatNumber(juros_cartao))^i)/i Else valor = valor/i

texto = texto & Formatnumber(valor*te_moeda_cotacao,2)

texto = texto & "</td>"

If ccur(te_limite_cartao_parcelamento) < ccur(valor) Then

Response.Write texto

Else

Response.Write "<td nowrap bgcolor=" & cor & ">" & i & "x</td><td bgcolor=" & cor & ">-</td>"

End If

texto = ""

If cor = "white" Then cor = "whitesmoke" Else cor = "white"

texto = texto & "<td nowrap bgcolor=" & cor & ">"

parcela = i+Fix((cartao_parcelas / 2)+0.5)

If parcela <= cartao_parcelas Then

texto = texto & parcela & "X"

If cartao_iniciojuros > parcela Or cartao_iniciojuros = 0 Then texto = texto & " <b>sem juros</b>" Else texto = texto & " com juros"

End If

texto = texto & "</td>"

texto = texto & "<td nowrap bgcolor=" & cor & ">"

If parcela <= cartao_parcelas Then

 

valor = Formatnumber(precitonx,0)

 

If parcela >= cartao_iniciojuros And cartao_iniciojuros <> 0 Then valor = (valor*(1+ccur(juros_cartao))^parcela)/parcela Else valor = valor/parcela

texto = texto & Formatnumber(valor*te_moeda_cotacao,2)

 

 

End If

If ccur(te_limite_cartao_parcelamento) < ccur(valor) Then

Response.Write texto

Else

Response.Write "<td nowrap bgcolor=" & cor & ">" & parcela & "x</td><td bgcolor=" & cor & ">-</td>"

End If

Response.Write "</tr>"

If cor = "white" Then cor = "whitesmoke" Else cor = "white"

Next

Response.Write "</table>" & VbCrLf

 

Response.Write "</td>" & VbCrLf

Response.Write "</tr>" & VbCrLf

Set parcela = Nothing

Set valor = Nothing

 

End If

 

End If

 

%>

 

Minha Loja apresenta assim:

 

1x 2.499,00

2x 1.299,98

3x 883,99

 

O pagseguro apresenta assim:

 

1x 2.499,00

2x 1.286,86

3x 866,40

 

Os mesmo valor o mesmo juro, mas as parcelas ficam diferentes? Como faço!

[Mário Monteiro 179]

matematica nao tem "se"

 

se os valores nao sao iguais é porque na pratica os juros nao sao iguais

 

ja vi um caso semelhante e contatei que essa pagseguro esta cobrando um juros menor do que o que anuncia

[Netanias 0]

Karaca, consegui fazer os cálculos exatamente iguais ao do pagseguro...

Só não consegui fazer com que eles ficassem lado a lado igual na Americanas, Submarino, etc...

 

Se alguém se habilitar a fazer essa configuração (layout), ficaria agradecido... e com certeza muita gente que precisa iria ficar feliz...

 

(Passei quinze dias procurando algo que funcionasse e nada... o mais parecido foi o desse post, o que acabou me inspirando a desenvolver o meu que ficou muito bacana... Falavam em Juro Composto, CODE, Número Elevado e tal... mas nada de útil...)

 

Alguém aí tem coragem de desenvolver a rotina para criar o layout do parcelamento dessas lojas mencionados aí? Flw

 

Segue o código abaixo para calcular as parcelas...

 

<table width="170" cellpadding="5" cellspacing="1" style="border-bottom:1px solid #006699;">
<%
preco = "" & Replace(FormatCurrency((prod.Fields.Item("vl").Value), -1, -2, -2, -2), ".", "") & ""
For parc = 1 to 12
If parc = 1 Then
parcjur = "1,00000"
ElseIf parc = 2 Then
parcjur = "0,51495"
ElseIf parc = 3 Then
parcjur = "0,34670"
ElseIf parc = 4 Then
parcjur = "0,26255"
ElseIf parc = 5 Then
parcjur = "0,21210"
ElseIf parc = 6 Then
parcjur = "0,17847"
ElseIf parc = 7 Then
parcjur = "0,15446"
ElseIf parc = 8 Then
parcjur = "0,13645"
ElseIf parc = 9 Then
parcjur = "0,12246"
ElseIf parc = 10 Then
parcjur = "0,11127"
ElseIf parc = 11 Then
parcjur = "0,10212"
ElseIf parc = 12 Then
parcjur = "0,09450"
End If
total = preco * parcjur
If total >= 10 Then
Response.Write("<tr><td width=50 align=center bgcolor=#f6f6f6>" & parc & "</td><td width=120 align=center bgcolor=#f0f0f0><strong>" & FormatCurrency(total, -1, -2, -2, -2) & "<strong></strong></td></tr>")
End If
Next
%>
</table>
<span style="font-size:11px; color:#666666;">* Parcela mínima: <strong>R$10,00</strong><br />
* Juros: <strong>1,99% a.m.</strong></span>

[xanburzum 169]

você deve ver como é o cálculo do pagseguro e verificar qual a taxa de juros,calculo etc, pois é uma conta só...

[Mário Monteiro 179]

ta meio feio o codigo

 

em vez deste monte de IF poderia usar um SELECT CASE