Resultado de porcentagem

24/03/2016

Al� amigos!
Seguinte, estou precisando de uma ajudinha para o seguinte problema:
Preciso tirar o resultado de desconto com porcentagem. Uma parte consegui resolver
mas preciso que o restante da opera�ao apare�a tamb�m.
Para entender melhor:
Valor= 100 desconto 15% = 85 (isso consegui)
valor2 = 15 que � o que restou dos 100. (� aqui que preciso de uma ajudinha)
na forma que fiz coloquei um edit para o valor um edit para entrar com a porcentagem
e no onexit deste edit a opera�ao. para jogar o resultado para uma label
gostaria de uma maneira para que ao jogar o resultado para esta label
jogosse tambem para outra label o que restou da opera��o.

Renato Sanches

Curtir t�pico + 0

Responder

Posts

24/03/2016

Natanael Ferreira

Teste assim:

var
  ValorTotal, ValorTotalDesconto, Desconto: Double;
  Percentual: Integer;
begin
  ValorTotal := StrToFloatDef(EditValor.Text, 0);
  Percentual := StrToIntDef(EditPercentual.Text, 0);
  Desconto := ValorTotal * Percentual / 100;
  ValorTotalDesconto := ValorTotal - Desconto;

  LabelDesconto.Caption := FormatFloat('0.00', Desconto);
  LabelValorDesconto.Caption := FormatFloat('0.00', ValorTotalDesconto);
end;

Responder

Gostei + 0

24/03/2016

Renato Sanches

Vou testar aqui. E volto dizendo se deu certo

Responder

Gostei + 0

28/03/2016

Renato Sanches

Testei hoje, por causa do feriado.
Funcionou beleza era exatamente assim que precisava. Valeu!

Responder

Gostei + 0