Achar Percentual de Desconto

Delphi

28/08/2005

Tenho um valor 9,39 com desconto 10¬ de desconto
ele vai para 8,46 certo. até ai tudo bem. Como eu faço para saber
quanto porcentos de desconto foi dado se eu tiver 9,39 -0,93 da 8,46 este 0,93 como acho quantos porcento representa de desconto este 0,93.
Obrigado a tds !!!


Essistemas

Essistemas

Curtidas 0

Respostas

Marco Salles

Marco Salles

28/08/2005

como acho quantos porcento representa de desconto este 0,93. Obrigado a tds !!!


a idéia é que esse deconto se obtem pela simples divisão do 0,93 pelo valor total que no casso é o 9,3

DescontodequalquerCoisa=((valor)/(Total))*100

Poderíamos imaginar isso com tres edits , ressaltando que deve ser melhor tratado , para evitar erros

procedure TForm1.Edit2Change(Sender: TObject);
begin
if edit2.text <> ´´ Then
edit3.text:=formatFloat(´0.000´,(strtofloat(edit2.text)*100)/strtofloat(edit1.Text))+´¬´
else
edit3.text:=´´;
end;


Onde no edit1 se tem o total ===9,3 edit2.text se tem o valor==0,93 edit3.text se tem o desconto==10¬



GOSTEI 0
POSTAR