[[BlueSteel]]

Empezado por chino150

Hola BlueSteel,

Yo estoy usando 3 Edit y 1 datepicker, 1 stringgrid el codigo

Codigo Delphi [-]


procedure TForm1.amortizacionClick(Sender: TObject);
begin
{inicializamos todo}
deu:=strtofloat(deuda.Text);
int:=strtofloat(interes.text);
ti:=strtofloat(tiempo.text);

{calculamos interes mensual}
if rg1.itemindex=0then
im:=int/100
else
im:=(int/100)/12;

{primer columna}
if rg2.itemindex=0then
mes:=ti
else
mes:=ti*12;

{Colocamos total de filas}
if rg2.itemindex=0then
tf:=strtoint(tiempo.text)
else
tf:=strtoint(tiempo.text)*12;

m.RowCount:=tf +1;
for fil:=1to tf do
m.cells[0,fil]:=floattostr(roundto(fil, -2));

{tercera columna}
pc:=deu/mes;
for fil:=1to tf do
m.cells[2,fil]:=floattostr(roundto(pc, -2));

{segunda columna}
si:=deu+pc;
for fil:=1to tf do
begin
si:=si-pc;
m.Cells[1,fil]:=floattostr(roundto(si, -2));
end;

{quinta columna}
sf:=deu;
for fil:=1to tf do
begin
sf:=sf-pc;
m.Cells[4,fil]:=floattostr(roundto(sf, -2));
end;

{cuarta columna}
si:=deu+pc;
for fil:=1to tf do
begin
si:=si-pc;
i:=si*im;
m.Cells[3,fil]:=floattostr(roundto(i, -2));
end;
{sexta columna}
pc:=deu/mes;
si:=deu+pc;
for fil:=1to tf do
begin
si:=si-pc;
i:=si*im;
pm:=pc+i;
m.Cells[5,fil]:=floattostr(roundto(pm, -2));
end;
{interes total}
ti:=0;
for fil:=1to tf do
ti:=ti+strtofloat(m.Cells[3,fil]);
it.Caption:=floattostr(roundto(ti,-2));

end;

end.
gracias

Hola Chino...

bueno, creo que podrias optimizar mucho más tu codigo... como por ejemplo

para llenar cada una de las columnas del StringGrid utilizas

Código Delphi [-]
for fil:=1to tf do

cuando podrias poner el codigo de todas las colunas en ese mismo codigo...

Nunca dices si el codigo que tienes esta bien.. te funciona... o tiene algun error...

Tambien, no se como estas realizando tu cuadro de amortización...

generalmente yo utilizo uno con los sgtes datos:

| Nro de Cta | Valor Cuota | Interes | Amortización | Saldo Capital

para calcular el valor cuota necesitas :
- Monto del Credito (Inversión)
- Tasa de Interes (Definir si es mensual o anual)
- Horizonte de Evaluación (Nº de Cuotas)

Bueno... espero que todo te resulte bien...

Salu2