Anónimo
Fórmulas para prestamos
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 rydesoft
1
r=0.038
c=3000
t=12
i=c*r
a= i / ((1+r)^(t)-1)
cuo=a+i
? cuo
?" It-Sald Cap - Amortiza- interes - cuota"
FOR it=1 TO t
a=cuo-i
c=c-a
? ALLTRIM(STR(it))+" "+alltrim(STR(c,12,2))+" "+ALLTRIM(STR(a,12,2))+" "+ALLTRIM(STR(i,12,2))+" " +ALLTRIM(STR(cuo,12,2)) I=c*r
ENDFOR
**pega esto en un prg y ejecutalo
* STR() esta funcion me convierte un valor numerico a un caracter numerico
* si quieres que siga siendo numerico en vez de utilizar STR() utiliza ROUND() esta funcion redondea un valor numerico
* un valor ejemplo ROUND(VALORARENDONDEAR,2) esto es para que solo se tomen dos decimales
c=3000
t=12
i=c*r
a= i / ((1+r)^(t)-1)
cuo=a+i
? cuo
?" It-Sald Cap - Amortiza- interes - cuota"
FOR it=1 TO t
a=cuo-i
c=c-a
? ALLTRIM(STR(it))+" "+alltrim(STR(c,12,2))+" "+ALLTRIM(STR(a,12,2))+" "+ALLTRIM(STR(i,12,2))+" " +ALLTRIM(STR(cuo,12,2)) I=c*r
ENDFOR
**pega esto en un prg y ejecutalo
* STR() esta funcion me convierte un valor numerico a un caracter numerico
* si quieres que siga siendo numerico en vez de utilizar STR() utiliza ROUND() esta funcion redondea un valor numerico
* un valor ejemplo ROUND(VALORARENDONDEAR,2) esto es para que solo se tomen dos decimales
¿El símbolo? Permite imprimir algo en la ventana principal de vfp
Osea que si el código lo vas a colocar en form debes quitarlo y hacer la asignación correspondiente a la variable
Osea que si el código lo vas a colocar en form debes quitarlo y hacer la asignación correspondiente a la variable
Hola amigo muchas gracias pero aun tengo un problemita en esta linea no logro encontrar cual seria
? ALLTRIM(STR(it))+" "+alltrim(STR(c,12,2))+" "+ALLTRIM(STR(a,12,2))+" "+ALLTRIM(STR(i,12,2))+" " +ALLTRIM(STR(cuo,12,2)) I=c*r
muestra un mensaje de " El comando contiene una frase o palabra clave no reconocida " y selecciona esa linea
? ALLTRIM(STR(it))+" "+alltrim(STR(c,12,2))+" "+ALLTRIM(STR(a,12,2))+" "+ALLTRIM(STR(i,12,2))+" " +ALLTRIM(STR(cuo,12,2)) I=c*r
muestra un mensaje de " El comando contiene una frase o palabra clave no reconocida " y selecciona esa linea
(Cuo, ¿12,2)) && esto va en la misma linea donde esta?
I=C*R && esto va en la linea siguiente solo
I=C*R && esto va en la linea siguiente solo
Gracias amigo ahora quedo genial, pero disculpa mi falta de conocimiento no te molestes pero como puedo ponerlo en un grid y quizás hasta poder imprimir.
Podrías crear una tabla que se llame Prestamos que contenga los campos
N_pago, Saldo Capital, amortiza, interés, ¿cuoto
y en ve de mostrar los datos con? Reemplazarías uno en la tabla, ya de esta forma podrías mostrarlo en un grid, imprimirlo o lo que queras.
N_pago, Saldo Capital, amortiza, interés, ¿cuoto
y en ve de mostrar los datos con? Reemplazarías uno en la tabla, ya de esta forma podrías mostrarlo en un grid, imprimirlo o lo que queras.