Cálculo de juros

Delphi

30/03/2004

Tenho um bug no meu programa da seguinte forma.

Tenho que aumentar em 30¬ um produto que custa 100,00.

So que o calculo não seria 100,00 + 30¬ porque se eu fizer dessa forma e for retirar os mesmos 30¬ dos 130,00 ele nao daria os mesmos 100,00.

Para que o calculo funcionasse faço da seguinte forma
Se eu for aumentar em 30¬ tenho fazer o seguinte calculo (100/70)*100 que daria 142,85. Se eu for tirar os 30¬ desse valor daria os mesmos 100,00. Se eu for aumentar ele em 20¬ eu multiplicadira (100/80)*100, os 80 seria a diferença de 100-20(que seria o aumento).
Agora que esta o problema
Quero aumentar o meu valor em 200¬, se for seguir a mesma regra ele daria um valor errado.

Qual seria a logica para isso.

[b:25d45531ed][color=red:25d45531ed]Editado(Beppe): Removido pontuação indevida no título.[/color:25d45531ed][/b:25d45531ed]

[b:25d45531ed][color=red:25d45531ed]Título editado pelo Moderador (AZ) - Removido: ´Desafio´[/color:25d45531ed][/b:25d45531ed]


Fernando

Fernando

Curtidas 0

Respostas

Cabelo

Cabelo

30/03/2004

Caro Colega

Esta é simples não....

Para aumentar um valor percentual utilize a seguinte formula

resultado = valor inicial * ( 1 + (percentual / 100));

para diminuir o valor utilize a seguinte fórmula

resultado = valor inicial / ( 1 + (percentual / 100));

sem mais

Cabelo


GOSTEI 0
Marco Salles

Marco Salles

30/03/2004

Ou Voce Aumenta Em 30¬ Ou Voce Diminui Em 30¬...Os Dois Juntos Não Dá
Exemplo: 100+30¬ = 130;
130-30¬<>100 ok
Porque :?: Porque 30¬ De 130 Não é 30
100+42,85¬ = 142,85
142,85 - 30¬ = 100
A Formula que o cabelo_uni Forneceu Vai Funcionar Para o Que Voce Quer....So Que Não é o Mesmo Valor Percentual, e Apenas Uma Formula Matemática..
Veja Bem
1) ValorAumentado:=Pocentagem*Valor
2) Valor:=ValorAumentado*Desconto
3)Comparando 1) com 2) Isto é Fazendo 1)=2) Tira-se
Desconto=1/Porcentagem ou Porcentagem=1/Desconto
4)Note o Fator Da Formula = ( 1 + (percentual / 100))
Note Que o Mesmo Fator Aparece Dividindo 1/( 1 + (percentual / 100))

Obs: Eu Não Estou Dizendo Que o Que o Cabelo_uni Lhe Passou Esta Errado... Para o Que Voce Quer Vai Funcionar Beleza...Mas Voce Deve Entender que o Percentual Empregado No Desconto Não é O Mesmo, Na Realidade Voce Fazendo Isto Esta Dando Um Desconto Maior Que o Aumento...


GOSTEI 0
Emerson Nascimento

Emerson Nascimento

30/03/2004

Olá Marco Salles, blz?

eu acho que o Fernando não está falando de desconto, mas sim de estorno.


GOSTEI 0
Bacheschi

Bacheschi

30/03/2004

A formula é simples 100*1,30 = 130
É claro que se você tirar 30¬ dos 130 nao vai dar 100, porque 30¬ de 130 não eh 30 !!!

formula VALOR*1,¬ = RESULTADO

Espero ter ajudado.


GOSTEI 0
Marco Salles

Marco Salles

30/03/2004

eu acho que o Fernando não está falando de desconto, mas sim de estorno.

É Isto Que Deve Ser Entendido, e eu Levantei Esta questão..Porque Durante Toda a Citação Do Fernando Ele Fala em Porcentagem....Veja Bem a Situação: Digamos Que Se Faça Um Aplicativo Usando as Formulas Anteriores Apresentadas. E O Usuário Do Aplicativo Seja Orientado Que Tem Uma Rotina Que Dá Um Desconto Percentual Num Determinado Botão...Neste Botão Esta a Formula :
resultado = valor inicial / ( 1 + (percentual / 100)); O Que Acontece :?: O Usuário Esta Sendo Mau Informado, Porque Esta Não é a Formula De Desconto Percentual, é Apenas Uma Formula Matemática De Estorno, Como Foi Definido Pelo Emerson...

É claro que se você tirar 30¬ dos 130 nao vai dar 100, porque 30¬ de 130 não eh 30 !!!

Não e´Tão Claro Assim Não.. É Uma Questão Que Passa Despercebido, Por Muitos, Até Se Debater Com a Questão...


GOSTEI 0
Cabelo

Cabelo

30/03/2004

Caro amigo Marcos..

Se vc perceber, entenderá que o valor estornado se diz respeito a um valor nativo, que é acrescido um vaor percentual, assim o estorno deve ser proporcionalmente (em percentual) igual ao valor de ´desconto´, na verdade o estorno nada mais é que o fator acrescido, subtraído de uma forma ou outra deste valor final, a fórmula que passei cabe exatamente para o que o amigo precisa, que é um cálculo de estorno, espero que fique bem claro pra vc que cálculo de estorno, opera tb com percentual, mas se vc perceber o fator é igualmente utilizado para adicionar ou subtrair valores, EM PERCENTUAL.
Espero ter sido claro..

sem mais

Cabelo


GOSTEI 0
Marco Salles

Marco Salles

30/03/2004

a fórmula que passei cabe exatamente para o que o amigo precisa, que é um cálculo de estorno

Com Certeza, Em Todas as Minhas Citações Em Momento Nenhum Mencionei o Contrário.


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

30/03/2004

Colega,

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, JvToolEdit, JvCurrEdit;

type
  TForm1 = class(TForm)
    ceAtual: TJvCalcEdit;
    ceTaxa: TJvCalcEdit;
    ceAtualizado: TJvCalcEdit;
    ceEstornado: TJvCalcEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  TCalcularValores = Class
    ValorAtual: Currency;
    Percentual: Currency;
    Atualizado: Currency;
    Estornado: Currency;
    procedure Clear;
    procedure Execute;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin

  With TCalcularValores.Create do
  begin

    Clear;

    ValorAtual  := ceAtual.Value;
    Percentual  := ceTaxa.Value;

    Execute;

    ceAtualizado.Value          := Atualizado;
    ceEstornado.Value           := Estornado;

    Free;

  end;


end;

{ TCalcularValores
    ValorAtual: Currency;
    Percentual: Currency;
    Atualizado: Currency;
    Estornado: Currency;
}

procedure TCalcularValores.Clear;
begin
  ValorAtual := 0;
  Percentual := 0;
  Atualizado := 0;
  Estornado  := 0;
end;

procedure TCalcularValores.Execute;
begin
  Atualizado  := ValorAtual * ( 1 + (Percentual / 100));
  Estornado   := Atualizado / ( 1 + (Percentual / 100));
end;

end.



GOSTEI 0
Marco Salles

Marco Salles

30/03/2004

Desculpe a Mensagem Foi Postada Sem Antes Eu Ter Concluido:

a fórmula que passei cabe exatamente para o que o amigo precisa, que é um cálculo de estorno

Com Certeza, Em Todas as Minhas Citações Em Momento Nenhum Mencionei o Contrário.
espero que fique bem claro pra vc que cálculo de estorno
,
Para Mim Tá Claro Desde o Início Ate ´Demostrei´ Como Chegar Na Fórmula...
mas se vc perceber o fator é igualmente utilizado para adicionar ou subtrair valores, EM PERCENTUAL.

O Fator Sim, Ele é O mesmo Para Somar Ou Subtrair Valores..É Exatamente Aí Que Eu Quero Chegar. Estamos Trabalhando Com Um Fator De Estorno que Não Deve Ser Encarado Como Valor Exato De Desconto Percentual De Um Determinado Valor...So Levantei Esta Questão No Intuito De Acrescentar e Tentar Separar Fator De Estorno Como Porcentagem Real...


GOSTEI 0
Flaviosan

Flaviosan

30/03/2004

Aroldo Zanela, como vai?
Me esclareça uma coisa: as duas units que voce declarou, JvToolEdit e JvCurrEdit na clausula Interface fazem parte da biblioteca JEDI, certo?
Agradeço antecipadamente.


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

30/03/2004

Colega,

Exatamente, elas foram inseridas pela IDE em face de ter adicionado:

    
ceAtual: TJvCalcEdit; 
ceTaxa: TJvCalcEdit; 
ceAtualizado: TJvCalcEdit; 
ceEstornado: TJvCalcEdit;



GOSTEI 0
POSTAR