Anónimo
Crear cronograma
Hola experto nuevamente molestándote pero ahora se esta haciendo más difícil esta tarea espero poder contar nuevamente contigo y gracias de antemano.
Tengo estos datos
r = intereses (3.80 que al dividirlo en 100 = 0.038
c = capital (en este caso será 3000 )
t = tiempo (en este caso seria 12 meses)
Los resultados deberían quedar de esta manera,
Item ---Saldo capital ---- amortización ------- interés ------ cuota
1--------2798.04 -------------- 201.96 ---------- 114.00 --------315.96
2 --------2588.41 -------------- 209.63 ---------- 106.33 -------315.96
Etc...
12------------0.00 --------------304.38 ----------11.58 ----------315.96
Estos son los códigos que muestran información de la primera linea ( item 1), pero como se puede hacer para los demás item.
************************************* INTERESES
r =(thisform.text13.value)/100
c =(thisform.text6.value)
t =(thisform.combo4.value)
resultado =((1+0.038)^(30/30)-1)
interes = c * (resultado)
thisform.text9.value=interes
*********************************** AMORTIZACION
a=(c*r)/((1+r)^(t)-1)
thisform.text10.value=a
************************************ SALDO CAPITAL
s=c-a
thisform.text11.value=s
************************************ CUOTA DE PAGO
cuo=(thisform.text10.value)+(thisform.text9.value)
thisform.text12.value=cuo
Tengo estos datos
r = intereses (3.80 que al dividirlo en 100 = 0.038
c = capital (en este caso será 3000 )
t = tiempo (en este caso seria 12 meses)
Los resultados deberían quedar de esta manera,
Item ---Saldo capital ---- amortización ------- interés ------ cuota
1--------2798.04 -------------- 201.96 ---------- 114.00 --------315.96
2 --------2588.41 -------------- 209.63 ---------- 106.33 -------315.96
Etc...
12------------0.00 --------------304.38 ----------11.58 ----------315.96
Estos son los códigos que muestran información de la primera linea ( item 1), pero como se puede hacer para los demás item.
************************************* INTERESES
r =(thisform.text13.value)/100
c =(thisform.text6.value)
t =(thisform.combo4.value)
resultado =((1+0.038)^(30/30)-1)
interes = c * (resultado)
thisform.text9.value=interes
*********************************** AMORTIZACION
a=(c*r)/((1+r)^(t)-1)
thisform.text10.value=a
************************************ SALDO CAPITAL
s=c-a
thisform.text11.value=s
************************************ CUOTA DE PAGO
cuo=(thisform.text10.value)+(thisform.text9.value)
thisform.text12.value=cuo
1 Respuesta
Respuesta de Cesar Enrique Yamunaque Baca
1
Disculpa la demora, estuve desconectado por unos días, problemas de mi proveedor de internet, bueno te doy un ejemplo de lo que quieres hacer
crea un Formulario con
3 TextBox && todos son campos numericos
1 Grid
1 CommandButton
En el Metodo Load del Formulario digita
Create Cursor PagoCuotas (Mes I, SaldoK N(10,2), Amortiz N(10,2), Interes N(10,2), Cuota N(10,2))
En el Metodo Click del CommandButton coloca
T=this.Parent.text3.Value && tiempo en meses
K=This.Parent.text1.Value && Capital inicial
I=This.Parent.text2.Value/100 && Porcentaje de interes mensual
M=T+1 && Meses a usar
SELECT("PagoCuotas")
DELETE ALL
GO TOP
SCATTER MEMVAR
FOR x=1 TO T
M=M-1
m.Mes=x
m.Interes=K*I
m.Amortiz=m.Interes/((1+i)^(M)-1)
m.Saldok=K-m.amortiz
m.Cuota=m.amortiz+m.interes
INSERT INTO PagoCuotas FROM MEMVAR
K=m.Saldok
ENDFOR
This.Parent.Refresh
En el RecordSource del Grid coloca "PagoCuotas"
crea un Formulario con
3 TextBox && todos son campos numericos
1 Grid
1 CommandButton
En el Metodo Load del Formulario digita
Create Cursor PagoCuotas (Mes I, SaldoK N(10,2), Amortiz N(10,2), Interes N(10,2), Cuota N(10,2))
En el Metodo Click del CommandButton coloca
T=this.Parent.text3.Value && tiempo en meses
K=This.Parent.text1.Value && Capital inicial
I=This.Parent.text2.Value/100 && Porcentaje de interes mensual
M=T+1 && Meses a usar
SELECT("PagoCuotas")
DELETE ALL
GO TOP
SCATTER MEMVAR
FOR x=1 TO T
M=M-1
m.Mes=x
m.Interes=K*I
m.Amortiz=m.Interes/((1+i)^(M)-1)
m.Saldok=K-m.amortiz
m.Cuota=m.amortiz+m.interes
INSERT INTO PagoCuotas FROM MEMVAR
K=m.Saldok
ENDFOR
This.Parent.Refresh
En el RecordSource del Grid coloca "PagoCuotas"