FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Programa para amortización de prestamos
Hola todos.
Necesito ayuda con lo que es amortización como lo logro uso el database desktop y delphi 5 el usuario inserta el capital y la tasa de interes y el numero de cuotas presona un botton para los calculos donde se muestran los resultados en un dbgrid #Pagare, ValorActual,Interes, Amortización, MontoCuota, ValorFuturo. Gracias!!!!! |
#2
|
||||
|
||||
Hola chino150, te dejo aquí el código que uso en un procedimiento almacenado para el calculo de cuotas de de amortización de Leasing, pero puede valerte para la amortización de cualquier tipo de prestamo. Espero que puedas sacar algo en limpio, si no entiendes pregunta, ahora no tengo tiempo y te lo pongo tal cual lo tengo yo en un procedimiento almacenado.
Los comentarios están en gallego, espero que no sea inconveniente. Un saúdo, y lo dicho, si no entiendes pregunta, pero ahora mismo tengo que marchar.
__________________
Si no lees esto no vivirás tranquilo Non lle poñades chatas â obra namentras non se remata. O que pense que vai mal que traballe n’ela; hai sitio para todos. (Castelao) Última edición por Ivanzinho fecha: 07-04-2008 a las 22:52:08. |
#3
|
||||
|
||||
Hola
No entiendo nada pero esto es el codigo que estoy utilizando todo funciona bien lo unico que no me funciona el FV Valor Futuro y el valor actual. Codigo Delphi [-] procedure TForm1.SpeedButton1Click(Sender: TObject); var NPeriods, IniValue, FinValue : Integer; Principal, Pago, Interest, Rate, PI : Double; Amortizacion, FV : Double; begin Rate := TAmorTasa_Anual.Value; TAmor.FieldValues['Pagos_X_Ano']:= StrToInt(Edit1.Text); NPeriods := StrToInt(Edit1.Text); //NPeriods2 := StrToInt(Edit1.Text); IniValue := 1; FinValue := NPeriods; Principal := TAmorMonto_Prestamo.Value; Interest := Principal * Rate; PI := Interest/NPeriods; //PV := Principal; FV := Principal + Interest; Pago := FV / NPeriods; Amortizacion := Principal/NPeriods; for NPeriods := finvalue downto IniValue do begin TAmor.Insert; TAmorCuota.Value := Pago; TAmorInteres.Value := PI; TAmorAmortizacion.Value := Amortizacion; TAmorPagares.Value := NPeriods; TAmorPago_Calculado.Value := Pago; TAmorMonto_Prestamo.Value := Principal; TAmorTasa_Anual.Value := Rate; TAmorsaldo_Final.Value := FV - Pago; end; end; Gracias mill!!! |
#4
|
||||
|
||||
No entiendo muy bien lo que hace tu código, pero te voy a explicar como lo hago yo.
El procedimiento que muestro arriba está preparado para el calculo de cuotas de amortización leasing, por lo que voy a realizar unos pequeños cambios en las formulas para acoplarlo a tus necesidades, que se tratan de la amortización de un prestamo. Para el calculo de de la cuota voy a utilizar el metodo francés, que es el más utilizado para estos casos. En caso de querer utilizar otro sólo tendrías que cambiar la formula. Las paremetros de entrada utilizados son los siguientes :
Los campos que no necesitas son utilizados para la gestión de inmovilizado y el cálculo de las cuotas fiscales. El siguiente paso es calcular la cuota de amortización, aquí realicé unos pequeños cambios para ajustarlo a tus necesitades. El método utilizado es el método francés.
Una vez calculada la cuota a pagar pasamos a calcular qué parte de esa cuota corresponde a la amortización del préstamo y cuál al pago de los intereses en cada período.
Espero que te sirva Un saúdo.
__________________
Si no lees esto no vivirás tranquilo Non lle poñades chatas â obra namentras non se remata. O que pense que vai mal que traballe n’ela; hai sitio para todos. (Castelao) |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Modulo de prestamos personales | chino150 | Varios | 0 | 02-01-2008 18:34:05 |
programa de prestamos en delphi | ingmichel | Internet | 3 | 24-08-2007 05:10:36 |
programa para ver en que direccion del registro de windows escribe un programa? | JuanErasmo | Varios | 1 | 09-11-2006 20:42:05 |
programa para instalar | alfil123 | Varios | 1 | 20-10-2006 10:56:31 |
¿ayuda para un programa para el msn | kaiser_robert | Internet | 1 | 15-06-2005 20:52:07 |
|