GARANTIR DESCONTO

Fórum Calcular porcentagem... #212413

08/02/2004

0

Fazer continha tipo 1+1 é facil... más porcentagem não faço idéia...( as benditas cauculadoras já fazem isso.)..

tenho
edit1
edit2
edit3
e um button

edit1 pega o valor Ex: ( 100,00)
edit2 pega a porcentagem Ex: (10)
edit3 recebe o calculo Ex ( 10,00)
Button faz o calculo...

isto parece ser fácil...más não faço idéia de como é a lógica..

Valeuuu...


Gigatel

Gigatel

Responder

Posts

08/02/2004

Drakkar

É simples, coloco o fonte abaixo no onclick do button.
Edit3.Text:=IntToStr((StrToInt(Edit1.Text)+StrToInt(Edit2.Text))/100);


Responder

Gostei + 0

08/02/2004

Drakkar

É simples, coloco o fonte abaixo no onclick do button. Edit3.Text:=IntToStr((StrToInt(Edit1.Text)+StrToInt(Edit2.Text))/100);


hehe pequena correção em relação as conversões:
Edit3.Text:=FloatToStr((StrToFloat(Edit1.Text)+StrToFloatEdit2.Text))/100);


Responder

Gostei + 0

08/02/2004

Gigatel

[quote:dc7b48bb87=´DrakkaR´]É simples, coloco o fonte abaixo no onclick do button. Edit3.Text:=IntToStr((StrToInt(Edit1.Text)+StrToInt(Edit2.Text))/100);


hehe pequena correção em relação as conversões:
Edit3.Text:=FloatToStr((StrToFloat(Edit1.Text)+StrToFloatEdit2.Text))/100);[/quote:dc7b48bb87]


Só uma dúvia .. o exemplo que sitei acima fala do valor 100 e calculo se dava em 10 ¬...que 10 ¬ de 100 por acaso não é 10 :? ... más neste código está dando 1,1... isto está correto ?



valeuuuu


Responder

Gostei + 0

08/02/2004

Gigatel

O valores especificados são apenas exemplo.. no lugar do 100 poderia ser 15,50 ou 150011,02

não são valores fixos.....


Responder

Gostei + 0

08/02/2004

Marco Salles

Troque o Sinal De Adição Pelo Sinal De Multiplicação.

Edit3.Text:=FloatToStr(IntToStr((StrToInt(Edit1.Text)[color=red:b4c9c0f176]*[/color:b4c9c0f176]StrToInt(Edit2.Text))/100);


Responder

Gostei + 0

08/02/2004

Gigatel

[quote:2d47c1643e=´Marco Salles´]Troque o Sinal De Adição Pelo Sinal De Multiplicação.

Edit3.Text:=FloatToStr(IntToStr((StrToInt(Edit1.Text)[color=red:2d47c1643e]*[/color:2d47c1643e]StrToInt(Edit2.Text))/100);[/quote:2d47c1643e]



Valeu...mt obrigado pela ajuda e paciencia...Funcionollll...perfeitamente


valeuuuuuuu

Gilmar C. Moraes


Responder

Gostei + 0

08/02/2004

Drakkar

hehe falta de atenção minha na hora de digitar o + no lugar do *.

vlw ae pela correção.


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar