Fórum Calcular oorcentagem #155691

25/04/2003

0

Delphi

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

Responder

Posts

25/04/2003

Aroldo Zanela

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


Responder

Gostei + 0

25/04/2003

Angelo

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!


Responder

Gostei + 0

25/04/2003

Aroldo Zanela

Ou seja, 40.975,77. Aguenta aí.


Responder

Gostei + 0

25/04/2003

E_gama

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);



Responder

Gostei + 0

25/04/2003

E_gama

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;



Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar