Fórum Converter Valor Decimal, Para Inteiro. #594840

11/06/2018

0

Fala galera! Exemplo: Tenho um sistema, para multiplicar, 2 valores em 2 Edits. E um botãp onde clicado apresenta o valor final. Quero que apareça o resultado Inteiro, tipo 12,90.. E está aparecendo tipo... 12,900045555.....
Valsistemasdelphi

Valsistemasdelphi

Responder

Posts

12/06/2018

Josafar Silva

vexemplo:= 12,900045555.....

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)

Responder

Gostei + 0

12/06/2018

Valsistemasdelphi

Var<br />
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.
Responder

Gostei + 0

12/06/2018

Valsistemasdelphi

Var<br /><br />
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.
... Esse valor que mencionei e exemplo, mais e vários valores, quero um código que funcione com qualquer valor decimal e ele converta..
Responder

Gostei + 0

12/06/2018

Raimundo Pereira

Tente assim


Var
num : real;
begin
num := strtofloat(Edit69.Text) * strtofloat(Edit70.Text);
Panel2.Caption := formatfLOAT('R$ ######0.00', NUM);
Responder

Gostei + 0

12/06/2018

Valsistemasdelphi

p2 Dexa te falar, O Resultado aparece assim R$69728,21..... E quero que independente do resultado apareça assim 00,00! Acho que descobri o que pode estar de errado.. Acho que é com meu código de Soma de Valores.. pois no Edit1 está, 64800+40176 = 104976, Aparece Desta Forma, Num Edit Resultado.

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.
Responder

Gostei + 0

13/06/2018

Raimundo Pereira

Var
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
Responder

Gostei + 0

13/06/2018

Valsistemasdelphi

P2 Valeu pela Resposta.. Acabei Esquecendo de uma coisa na verdade.. Calculo 104,976 * 0,664230 = R$69,728.21.. Esse 0,664230 e uma tarifa independente da Região. Esse valor final que quero que apareça tipo "R$69,72"... O problema está nesse resultado Final... No sistema ele aparece da seguinte forma "R$69728,21... Tem como concertar isso?
Responder

Gostei + 0

13/06/2018

Raimundo Pereira

Chama no skype ai man.
sac@p2tecnico.com.br
Responder

Gostei + 0

14/06/2018

Valsistemasdelphi

Galera Resolvi meu problema.. Valeu pela ajuda
Responder

Gostei + 0

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

Aceitar