[Resolvido]Calculo Parcela com Ajustes Anuais

Olá Pessoal, há tempos solicitei a ajuda dos companheiros para a criação de Bd que gerasse várias parcelas. O Jpaulo disponibilizou um BD Parcelas_2008 e ainda por cima me fez uma adaptação no código que eu precisava.
Agora eu estou precisando do seguinte:
Um financiamento de 20.400,00 dividido em 12/24/36/48/60/72 o cliente poderá escolher essas formas de pagamento.
A dinamica do cálculo é a seguinte:
1 - Divide-se o valor do financiamento pelo numero de parcelas que o cliente optou.
2 - As 12 primeiras terão um acréscimo de 1% ao mês
3 - Na 13 abate-se o que foi pago e o saldo joga-se mais 1% ao mês só que aí é necessário fazer uma correção pelo IGPM acrescentando o IGPM na parcela ficando saldo + 1% + IGPM = Novas 12 parcelas
4 - Resumo a cada 12 parcelas preciso incrementar esses valores.
Peço que se alguem puder me dar uma luz como resolver.

Abraços

Gerson

Ola Gerson;

Concerteza não será dificil, tente por favor colocar aqui parte do seu banco, fica mais facil de ajudar a mexer nesses códigos.

Olá Jpaulo, é bom estar com você denovo. Esse código você adaptou para mim há alguns meses atrás, acho que à partir dele dá para conseguir o que preciso. recaptulando...
São financiamentos que poderão ser em 12,24,36,48,60 e 72 Parcelas à juros de 1% ao Mês e a cada 12 meses o saldo restante para pagamento, juros de 12% + uma atualização por um índice do governo que geralmente é de 7,65 para gerar as 12 novas prestações e assim por diante. Obrigado pela força


If Not Resto <= 0 Then
For I = 1 To 70 'For I = 1 To Me.q_parc
With rs
.AddNew
!Num_OR = Me.Num_OR
!Num_parc = I & "/70" '!Num_parc = I & "/" & Me.q_parc
!Data_venc = DateAdd("m", I - 1, (Me.Data_1a_parc))
'!Val_parc = Me.v_parc
Select Case I
Case Is < 21
!Val_parc = Me.A_Parcelar * 0.01
Case Is < 41
!Val_parc = Me.A_Parcelar * 0.011
Case Is < 61
!Val_parc = Me.A_Parcelar * 0.014
Case Else
!Val_parc = Me.A_Parcelar * 0.03


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

Se entendi direito;

Case Is <= 12
!Val_parc = Me.A_Parcelar * 0.01 'até 12 meses 1% por mês
Case Is >= 13
!Val_parc = Me.A_Parcelar * 0.02 + 7.65 'a partir do 13 mês, passa para 2% e + 7,65%
End Select

Jpaulo, o valor total do financiamento é 20.400,00
dividindo-se por 24 parcelas dá 850 esse seria o valor de cada uma das 24 parcelas e é em cima desse 850 que quero colocar os juros de 1% e na 13º parcela além de juros o IGPM (indice econômico).
Não querendo abusar... Esse tal índice só saberemos ao certo na ocasião do vencimento da 13º parcela então posso na época fazer uma consulta ataulização, e acertar essas parcelas, ou teria como fazer isso via código ??

Bom dia Gerson,

Fiz algumas modificações, veja se o atende.

http://www.speedyshare.com/files/29626186/Parcelas_OLD.rar


If Not Resto <= 0 Then
Dim x, y, z As Double
For I = 1 To Me.q_parc
With rs
.AddNew
!Num_OR = Me.Num_OR
!Num_parc = I & "/" & Me.q_parc
!Data_venc = DateAdd("m", I - 1, (Me.Data_1a_parc))
Select Case I
Case Is <= 12
x = (Me.Resto / Me.qde_parc) * 0.01 'achar 1% da parcela
!Val_parc = (Me.Resto / Me.qde_parc) + x 'até 12 meses acrescentamos 1% à parcela
Case Is >= 13
y = (Me.Resto / Me.qde_parc) + x 'a partir do 13 mês, continuamos a juntar 1%
z = (y / 100) * Me.txtIGPM.Value 'se existir IGMP, acha o total da parcela
!Val_parc = y + z 'a partir do 13 mês, acrescentamos o IGMP à parcela
End Select
.Update
End With
Next

Jpaulo bom dia,
Quase o exemplo resolve tudo... vou mostrar como preciso veja...
Financiado: 20.400,00 supondo que seja em 24 vezes na calculadora...
20.400,00 / 24 = 850
850 * 12% = 952,00
12 parcelas de 952,00
Total do Financiamento pago 11.424,00
Financiado: 20400,00-valor pago 11.424,00 = 8976,00
Saldo 8.976,00 *12% = 1.077,12
Isto toda vez que fizer aniversário o contrato, isto é a cada 12 parcelas esse saldo a pagar sofrerá a correção do IGPM
Abraços

Vá Quitando parcela a parcela e veja o resultado depois das 12.

Tente entender como funciona e altere ao seu gosto, assim também aprenderá mais um pouco.

Atenção:
O Projeto sofreu grandes alterações em ambos os formulários.

http://www.speedyshare.com/files/29628907/Parcelas_OLD_3.rar

Jpaulo, me perdoe fiz os testes mas não atingi o resultado dei baixa e realmente fica o saldo devedor, só que ao calcular as parcelas os juros só estão acrescidos nas 12 Primeiras.

Após os primeiros 12 meses, o Saldo restante será de Saldo 8.976,00

Saldo 8.976,00 a dividir pelos próximos 12 meses será de 748,00 por mês

748,00 * 12% = 837,76

É isto ???

http://www.speedyshare.com/files/29630620/Parcelas_OLD_4.rar

Jpaulo o saldo realmente depois da 12 é 8.976,00 só que a partir dai a prestação sofre o amentos dos 12% ou seja antes era 952,00 a partir da 13 passa para 1066,00 e assim sucessivamente caso haja mais parcelas.
o mesmo financiamento em 36 vezes ficaria 12 de 635 +12 de 711 + 12 de 796
Quanto ao IGPM só na data é que poderemos colocar o valor e nesse caso será possivel editar as parcelas ??

Veja agora;

http://www.speedyshare.com/files/29631187/Parcelas_OLD_5.rar

Quanto ao IGPM, neste momento não está a fazer nada, porque não sei a que parcelas você quer adicionar.

Jpaulo, Fiz as simulações e funcionou bem até a 24 parcela mas parece que ela mantem o mesmo valor para a 25 causando erro nas demais.
O IGPM seria lançado sempre que se completasse 12 meses da 1ª parcela paga ou seja no aniversario do contrato.

Fiz o teste com 36 parcelas e funcionou na perfeição.

Confirme na tabela:

http://www.speedyshare.com/files/29647241/Parcelas_OLD_6.rar

Jpaulo, obrigado pela força infelizmente ainda não deu as poarcelas estao saindo assim

23 - 533,12
24 - 533,12
25 - 533,12
26 - 597,09
27 - 668,75
28 - 749,00
29 - 838,87

Gerson amigão, neste ultimo exemplo, você pode ver na tabela que todas as parcelas estão corretas.

É de todo impossivel não estar a funfar.

Jpaulo, bom dia só agora pude ter acesso ao computador. Infelizmente não funfa. Fui bisbilhotar o código do subformulario, do campo sim/não e lá faltava uma condição mas mesmo assim depois de colocar essa condição ao dar baixa nas parcelas os valores após a 24 parcela dão erro.
Abraços,

Gerson

Gerson, o exemplo que lhe enviei funciona, se o seu não funciona, compare os dois e veja onde está a errar.

Tópico encerrado, qualquer coisa abra novo tópico.