Resultado de porcentagem

Delphi

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

Renato Sanches

Curtidas 0

Respostas

Natanael Ferreira

Natanael Ferreira

24/03/2016

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;
GOSTEI 0
Renato Sanches

Renato Sanches

24/03/2016

Vou testar aqui. E volto dizendo se deu certo
GOSTEI 0
Renato Sanches

Renato Sanches

24/03/2016

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