DBedit

[Tatinha 0]

:mellow: Olá galera estou com dificuldade de fazer uma formula para porcentagem, se alguém tem uma por favor me passem!!!!!obrigada! :rolleyes: Multiplicar duas dbedit e colocar o resultado na terceira.

[WiCkEd 0]

Não entendi muito bem, mas:Dbedit3.text := floattostr( strtofloat(dbedit1.text) * strtofloat(dbedit2.text) );

[Tatinha 0]

Oi com essa formula eu apenas multiplico as edits, eu gostaria que dessem a porcentagem por exemplo:1*2/100Eu apenas acrescento a /100 ou não?

[Mach 5 0]

Tente assim:

 

procedure TForm1.Button1Click(Sender: TObject);var tmp1, tmp2:Double;begin   tmp1:=StrToFloat(Edit1.Text);   tmp2:=StrToFloat(Edit2.Text);   Edit3.Text:=FormatFloat('##0.00 %',(((tmp2 - tmp1)/tmp2) *100));end;

Ex:

edit1:="60";

edit2:="80";

edit3:="25,00 %"