26/09/2004

Gerar parcelas em delphi

para o usuario num te que preenche td na mao eu usei essa formula mas qdo eu executo ela trava td e tem q finaliza tarefa...
alguem poderia me dize oq tem de errado???

procedure TFrmGerarParcela.BtGerarClick(Sender: TObject);
var qtdparcelas, total, juros, totaldividido:real;
var data : String;
var mes, ano: Integer;
begin
juros := StrToFloat(EdtJuros.Text);
total := StrToFloat(EdtTotal.Text);
qtdparcelas := StrToFloat(EdtQtdParcelas.Text);
totaldividido := total/qtdparcelas;
total := ((juros/100) * total);
mes := StrToInt(EdtMes.Text);
ano := StrToInt(EdtAno.Text);
while qtdparcelas 0 do
begin
data := EdtDia.Text + ´/´ + IntToStr(mes) + ´/´ + IntToStr(ano);
Tabelas.tbParcelaContasPagar.Append;
Tabelas.tbParcelaContasPagarValorParcela.AsCurrency := total;
Tabelas.tbParcelaContasPagarData.AsDateTime := StrToDateTime(data);
Tabelas.tbParcelaContasPagar.Post;
mes := mes + 1;
if (mes = 13) then
begin
mes := 1;
ano := ano + 1;
end;
end;
end;


Gabriel.elessar

Respostas

26/09/2004

Fabio.hc

while qtdparcelas <> 0 do


nesta linha o loop fica infinito, vc tem q decrementar a variavel qtdparcelas.


desta forma:

while qtdparcelas <> 0 do
   begin
   dec(qtdparcelas);



Responder Citar