Resultado de porcentagem

24/03/2016

2

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.
Responder

Posts

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

24/03/2016

Renato Sanches

Vou testar aqui. E volto dizendo se deu certo
Responder

28/03/2016

Renato Sanches

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