estou desenvolvendo um software para um loteamento.

Recebi uma tabela com todos seus lotes, preço à vista e os valores das parcelas em 12, 24 e 36 vezes.

Tenho que desenvolver um calculo que mostre o valor das parcelas, usando a regra de juros sobre juros...

Recentemente, pois quase o mesmo assunto aqui e fui ajudado... só que fazendo igual ao que me ensinaram aqui não dar o mesmo valor que está na folha que recebi com os preços dos lotes e sua parcelas.

Por exemplo:

ENTRADA = R$ 0,00
TOTAL = R$ 20.250,00      ' valor do lote á vista
QUANT_PARCELAS = 12
JUROS = 3%
ai aparece VALOR_PARCELA = R$ 2.165,37

e na tabela que recebi(impressa) este lote em 12 vezes fica de R$ 2.035,13

Onde tô errando?

Olha o código completo aqui:
Dim ENTRADA As Currency
Dim TOTAL As Currency
Dim QUANT_PARC As Integer
Dim JUROS_MES As Single

Dim VALOR_PARCELA As Currency
Dim VALOR_LIQUIDO As Currency

          
TOTAL = txtValorTotal2.Text
ENTRADA = (TOTAL * 10) / 100                 '10% do campo Total
QUANT_PARC = cboQuantParc.Text
JUROS_MES = txtJuros.Text

VALOR_LIQUIDO = TOTAL - ENTRADA

VALOR_PARCELA = VALOR_LIQUIDO * ((JUROS_MES / 100) + 1) ^ QUANT_PARC
VALOR_PARCELA = VALOR_PARCELA / QUANT_PARC

txtValorParc.Text = FormatCurrency(VALOR_PARCELA)

 

Function CalculaParcela(Principal As Double, _
                                Entrada As Double, _
                                JurosAM As Double, _
                                Parcelas As Integer) As Currency
On error resume next
Dim Denominador As Double
Dim Juros As Double
Dim Parcela As Double
Dim TotalReajuste As Double
    Denominador = 1
For i = 1 To Parcelas - 1
    Juros = ((1 + (JurosAM / 100)) ^ i)
    Denominador = Denominador + Juros
Next
    TotalReajuste = ((Principal - Entrada) * ((1 + (JurosAM / 100)) ^ _
                (Parcelas - IIf(Entrada <> 0, 1, 0))))
    Parcela = TotalReajuste / Denominador
    CalculaParcela = Format(CCur(Parcela), "currency")
End Function

como eu coloco isso ai no meu codigo (adaptar ao que está logo acima)?

 

Grato.

help-me

Olá Autodidata (conterrâneo) adiciona um módulo no seu projeto e copia o que o Josefh

recomendou aí basta fazer isso...

 

Private Sub Command1_Click()

Text1.Text = CalculaParcela(CCur("20.250"), 0, 3, 12)

End Sub

observe que foi usado os dados que vc passou

 

 

esse 0 é a entrada esse 3 é o juro e esse 12 é a quantidade de meses?

 

mais não deu R$ 2.035,13 ?

a direrença é de R$ 0,77