Juros da minha loja com conferem com o pagseguro

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!