Juros Compostos

Alguém sabe transformar este código de Juro Simples para Juro Composto?

Private Function Calc_parc()
Dim rs As DAO.Recordset, I As Byte
Dim rs1 As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("select * from tbl_parcelas where NrContrato = " & Me.NrContrato & "")
Set rs1 = CurrentDb.OpenRecordset("select * from tbl_parcelas where NrContrato = " & Me.NrContrato & " and quitada = -1")
If Not rs1.EOF Then
MsgBox "Este Contrato já foi parcelado e contém pagamento efetuado. " & Chr(10) & "" _
& "Não será possivel refazer parcelamento !!!", vbCritical
Set rs1 = Nothing
Exit Function
End If


If Not rs.EOF Then
If MsgBox("Já existe um parcelamento para este Contrato !!! " & Chr(10) & "" _
& "Deseja substituir pelos novos valores? ", vbYesNo + vbExclamation + vbDefaultButton1, "Parcelamento") = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunSQL "Delete * from tbl_parcelas where NrContrato = " & Me.NrContrato & ""
DoCmd.SetWarnings True

Else
Exit Function
End If

End If

If Not Resto <= 0 Then
For I = 1 To Me.q_parc
With rs
.AddNew
!NrContrato = Me.NrContrato
!Num_parc = I & "/" & Me.q_parc
!Data_venc = DateAdd("m", I - 1, (Me.VencParcela1))
!Val_parc = Me.v_parc

.Update
End With
Next
Else
DoCmd.SetWarnings False
DoCmd.RunSQL "Delete * from tbl_parcelas where NrContrato = " & Me.NrContrato & ""
DoCmd.SetWarnings True
End If
rs.Close
Set rs = Nothing
'MsgBox "Valores inseridos com sucesso!!!"
Me.Forma_Pgto.Requery
Me.Forma_Pgto.SetFocus

End Function

===============================================================================

Obrigado

Ari

Olá! Veja se esse tópico ajuda.

Foi justamente depois de ver este tópico que resolvi abrir este, por não conseguir adaptar um ao outro.

Ari

Aonde está a parte que calcula o juro que eu não consegui identificar?

Estou usando o BD Parcelas_2008 do JPaulo, porém o calculo é em Juros Simples.
Se este exemplo calculasse Juros Compostos, pronto, seria a solução.

>>>Espero que o JPaulo veja esta mensagem.

Abraços

Ari