Cuadro de amortización de Prestamos

[Delphitest]

Gracias por la información

Estoy haciendo pruebas e intentando entender el mecanismo antes de preguntar a lo loco.

Me toca repasar los bucles, las condiciones... ufff hace años que no tocaba esto.

En cuanto tenga algo hecho si os parece lo subo al foro para que lo veáis y por si alguien quiere aprovecharlo.

Buenas noches

[Delphitest]

Bueno, ya voy teniendo algo hecho, lo adjunto para que lo veais (no se si afecta que este hecho con la versión XE5) aunque queda tarea pero le voy cogiendo el tranquillo al menos a esta parte que es la sencilla.

He puesto valores por defecto para que se vea mas o menos la idea pero son modificables.

El siguiente paso que tengo que dar es dar formato a los edit para que los números que pongo ahí aparezcan con el punto de los miles y alineados a la derecha.

Solo está hecho para el sistema americano por ahora (es el sencillo)

La ultima linea necesita retoques porque debe poner el importe del préstamo como amortización, amortizado y a cero el capital pendiente, tengo que darle vueltas a algún If... pero no doy con ello todavía.

Continuo y os voy contando los avances.

[Delphitest]

Buenas tardes,

ya estoy por aquí de nuevo, tuve que seguir con otras cosas y deje de lado lo del cuadro de amortización pero ya he llegado a este punto y necesito continuar con ello.

Estoy haciendo algo mal pero no veo qué. Pretendo que a través del For... se generen las lineas del cuadro de amortización menos la última y eso sí sale bien, pero después de esas líneas tengo que generar la última donde se indica el importe amortizado de tal manera que el capital pendiente quede a cero.

No entiendo porqué pero no consigo generar esa última línea.

Pongo el código y adjunto el fichero por si alguien ve algo que no este haciendo bien y pudiese orientarme para solucionarlo.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
 Lineas : Integer;
 NumPlazos : Integer;
 ImporteCuota : Double;
 ImporteIntereses : Double;
 ImporteAmortizacion : Double;
 ImporteAmortizado : Double;
 ImportePendiente : Double;
begin
if Plazos.Text = '' then
  ShowMessage('Debe indicar el número de plazos del préstamo')
Else
  Begin
  NumPlazos := Strtoint(Plazos.Text) ;
  ImporteCuota := StrToFloat(ImportePrestamo.Text)*(StrtoFloat(TipodeInteres.Text)/12)/100;
  ImportePendiente := StrtoFloat(ImportePrestamo.Text);
  CuadrodeAmortizacion.RowCount := NumPlazos ;
  For  Lineas := 1 to NumPlazos  do
    Begin
      CuadrodeAmortizacion.Cells[0,Lineas] := InttoStr(Lineas);
      CuadrodeAmortizacion.Cells[1,Lineas] := FormatFloat('#,##0.00 €',ImporteCuota);
      CuadrodeAmortizacion.Cells[2,Lineas] := FormatFloat('#,##0.00 €',ImporteCuota);
      CuadrodeAmortizacion.Cells[3,Lineas] := '0';
      CuadrodeAmortizacion.Cells[4,Lineas] := '0';
      CuadrodeAmortizacion.Cells[5,Lineas] := FormatFloat('#,##0.00 €',ImportePendiente);
     End;
  end;
      Lineas := Lineas-1;
      CuadrodeAmortizacion.Cells[0,Lineas] := InttoStr(Lineas);
      CuadrodeAmortizacion.Cells[1,Lineas] := FormatFloat('#,##0.00 €',ImporteCuota+ImportePendiente);
      CuadrodeAmortizacion.Cells[2,Lineas] := FormatFloat('#,##0.00 €',ImporteCuota);
      CuadrodeAmortizacion.Cells[3,Lineas] := FormatFloat('#,##0.00 €',ImportePendiente);
      CuadrodeAmortizacion.Cells[4,Lineas] := FormatFloat('#,##0.00 €',ImportePendiente);
      CuadrodeAmortizacion.Cells[5,Lineas] := '0';
end;

[Delphitest]

Pues ahora yo lo entiendo ...

Las vueltas que hay que darle a veces a unas tonterías

Me explico a mi mismo donde estaba el problema;

Estaba definiendo el número de líneas del Grid igual que el número de plazos, entonces como la linea de la cabecera ocupa una fila lógicamente nunca llegaba a la última que necesitaba.

Lo he solucionado incrementando 1 al número de líneas del Grid y restando 1 al bucle para que deje la ultima sin generar y se pueda hacer cuando finalice. Grrrrrrr Esto hace que se me caiga un poco más el pelo...

Código Delphi [-]
  NumPlazos := Strtoint(Plazos.Text) ;
  ImporteCuota := StrToFloat(ImportePrestamo.Text)*(StrtoFloat(TipodeInteres.Text)/12)/100;
  ImportePendiente := StrtoFloat(ImportePrestamo.Text);
  CuadrodeAmortizacion.RowCount := NumPlazos + 1 ;
  For  Lineas := 1 to NumPlazos - 1  do

[Casimiro Notevi]

Empezado por Delphitest

Grrrrrrr Esto hace que se me caiga un poco más el pelo...

¿Por qué crees que los veteranos estamos todos calvos?