Calculo de Percentual COMPLICADO
quero fazer o seguinte calculo.
colocar um edit e 3 labels.
1 edit vai receber o valor... digamos R$ 750,00
por sua vez. o label1 vai receber o mesmo R$ 750,00
o label2 vai fazer o seguinte calculo. multiplicar o valor ´R$ 750,00´ por 11,71¬ depois multiplicar o resultado por 2,5¬. ai vai aparecer no label2 o valor de R$ 2,20
por sua vez no label3 ele vai pegar o valor cheio, no caso... R$ 750,00 e diminuir do valor achado no label2.... R$ 2,20 e vai aparecer R$ 747,80.
bom, espero que voce possa me ajudar.
forte abraço para todos
Luciano Mattos
colocar um edit e 3 labels.
1 edit vai receber o valor... digamos R$ 750,00
por sua vez. o label1 vai receber o mesmo R$ 750,00
o label2 vai fazer o seguinte calculo. multiplicar o valor ´R$ 750,00´ por 11,71¬ depois multiplicar o resultado por 2,5¬. ai vai aparecer no label2 o valor de R$ 2,20
por sua vez no label3 ele vai pegar o valor cheio, no caso... R$ 750,00 e diminuir do valor achado no label2.... R$ 2,20 e vai aparecer R$ 747,80.
bom, espero que voce possa me ajudar.
forte abraço para todos
Luciano Mattos
Noproblem
Curtidas 0
Respostas
Noproblem
28/03/2003
procedure TForm1.Button2Click(Sender: TObject);
begin
label3.caption:=floattostr(strtofloat(label1.caption)*strtofloat(edit4.text)/100);
label3.caption:=floattostr(strtofloat(label2.caption)*strtofloat(label3.caption)/100);
end;
onde label3 = resultado final
label1 vem o caption de 11,71¬
label2 vem o caption de 2,5¬
Se alguem souber de um jeito menos complicado favor ajudar
Luciano Mattos
begin
label3.caption:=floattostr(strtofloat(label1.caption)*strtofloat(edit4.text)/100);
label3.caption:=floattostr(strtofloat(label2.caption)*strtofloat(label3.caption)/100);
end;
onde label3 = resultado final
label1 vem o caption de 11,71¬
label2 vem o caption de 2,5¬
Se alguem souber de um jeito menos complicado favor ajudar
Luciano Mattos
GOSTEI 0