|
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!!!
|