Calculo com porcentagem

Delphi

19/08/2008

Boa noite Galera gotaria de pedir se alguém me desse uma dica nese assunto:
Peguei 8 mil reais para pagar pelo juro 0,75 ¬ da seguinte forma calculo o 8 mil por 0,75¬ para gerar a primeira parcela e o restante novamente por 0,75 para gerar a segunda e assim por diante.
Desde já lhes agradeço!!!


Lsksskyblu

Lsksskyblu

Curtidas 0

Respostas

Sremulador

Sremulador

19/08/2008

amigo existe várias funções para porcentagem, quanto a parcela proxima, basta voc^gravar em uma variavel...


GOSTEI 0
Diegotiemann

Diegotiemann

19/08/2008

Var 
NUM_PARCELAS:integer
VALOR_TOTAL, VALOR_RESTANTE:Double;
begin

VALOR_TOTAL   :=8000;
VALOR_RESTANTE:=8000;



for I:= to NUM_PARCELAS do
begin
   VALOR_PARCELA:=VALOR_RESTANTE*1,075;
   //aqui insira o registro no seu dataSet

  

     //aqui desconto o valor que falta ser parcelado (sem os juros)
    VALOR_RESTANTE=VALOR_RESTANTE-(VALOR_TOTAL/PARCELAS);

end;

end



GOSTEI 0
POSTAR