Fórum Converter Valor Decimal, Para Inteiro. #594840
11/06/2018
0
Valsistemasdelphi
Curtir tópico
+ 0Posts
12/06/2018
Josafar Silva
vexemplo:= RoundTo(vexemplo, -2); // para duas casas decimais após a vírgula (resultado = 12,90)
vexemplo:= RoundTo(vexemplo, 2); // para duas casas decimais antes da vírgula (resultado = 13)
Gostei + 0
12/06/2018
Valsistemasdelphi
num : real;<br />
begin<br />
//vexemplo:= RoundTo(vexemplo, -2)<br />
<br />
num := strtofloat(Edit69.Text) * strtofloat(Edit70.Text); // 0,664230<br />
Panel2.Caption := formatfloat(''R$ ,0.'',num);<br />
<br />
Uso esse código, aonde especificamente coloco o Round, porque dá erro.
Gostei + 0
12/06/2018
Valsistemasdelphi
num : real;<br /><br />
begin<br /><br />
//vexemplo:= RoundTo(vexemplo, -2)<br /><br />
<br /><br />
num := strtofloat(Edit69.Text) * strtofloat(Edit70.Text); // 0,664230<br /><br />
Panel2.Caption := formatfloat(''''R$ ,0.'''',num);<br /><br />
<br /><br />
Uso esse código, aonde especificamente coloco o Round, porque dá erro.
Gostei + 0
12/06/2018
Raimundo Pereira
Var
num : real;
begin
num := strtofloat(Edit69.Text) * strtofloat(Edit70.Text);
Panel2.Caption := formatfLOAT('R$ ######0.00', NUM);Gostei + 0
12/06/2018
Valsistemasdelphi
Somando isso tudo na calculadora com a virgula aparece separado, tipo 104,976. Esse Valor 104,976 e Multiplicado pelo outro valor que o usuário coloca num outro Edit, que se chama Tarifa, O valor e de 0,664230, Dependendo Da Região, mais independente disso. Não sei se tem alguma coisa a haver com a outra.
Gostei + 0
13/06/2018
Raimundo Pereira
num : real;
begin
num := strtofloat(Edit69.Text) + strtofloat(Edit70.Text);
Panel2.Caption := formatfLOAT('######0.000', NUM);
end;
64,800+40,176
Resultado 104,976
Panel2.Caption := formatfLOAT('######0.00', NUM);//######0.00 Mostra até 2 casas decimais
Mostra o resultado 104,98 , já arredondado
Panel2.Caption := formatfLOAT('######0.000', NUM); //######0.000 Mostra até 3 casas decimais
Mostra o resultado 104,976 , já arredondado
Gostei + 0
13/06/2018
Valsistemasdelphi
Gostei + 0
13/06/2018
Raimundo Pereira
sac@p2tecnico.com.br
Gostei + 0
14/06/2018
Valsistemasdelphi
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)