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!!!!! |
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. |
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!!! |
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. |
La franja horaria es GMT +2. Ahora son las 00:33:49. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi