Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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!
Carregando comentários...