Calcular oorcentagem

Delphi

25/04/2003

Boa tarde!
Como faço para calcular porcentagem, vou explicar melhor: quero que o programa calcule um valor por exemplo 7000 com juros de 3.75¬ em 48 meses (tanto os juros como os meses podem variar) como poço fazê-lo?
Angelo


Angelo

Angelo

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

25/04/2003

Juros simples ou composto? Valor da prestação ou valor futuro?


GOSTEI 0
Angelo

Angelo

25/04/2003

Veja bem, tenho que calcular 3.75 sobre 7000, depois 3.75 sobre os 7000 com os primeiros 3.75 e assim por diante até um total de 48 meses, preciso saber o valor total final.
Valeu!


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

25/04/2003

Ou seja, 40.975,77. Aguenta aí.


GOSTEI 0
E_gama

E_gama

25/04/2003

A forma mais direta seria essa:

function CalcValorFuturo(ValorAtual, NumPrest: Integer; Taxa: Real): Real;

var I          : Integer;
    ValorFuturo: Real;

begin
  Tx := 1 + (Taxa / 100);
  ValorFuturo := ValorAtual;

  for I := 1 to NumPrest do
    ValorFuturo := ValorFuturo * Tx;

  Result := ValorFuturo;
end;


Para testar a função:

  NovoValor := CalcValorFuturo(100, 48, 3.75);



GOSTEI 0
E_gama

E_gama

25/04/2003

Uma correção:

function CalcValorFuturo(ValorAtual, NumPrest: Integer; Taxa: Real): Real; 

var I          : Integer; 
    ValorFuturo: Real; 
    Tx         : Real;  // Faltou essa linha

begin 
  Tx := 1 + (Taxa / 100); 
  ValorFuturo := ValorAtual; 

  for I := 1 to NumPrest do 
    ValorFuturo := ValorFuturo * Tx; 

  Result := ValorFuturo; 
end;



GOSTEI 0
POSTAR