Fórum Arredondamento de Valores #214623
16/02/2004
0
edit2.text:=floattostr(Round(strtofloat(edit1.text)));
Ola colegas... este foi o exemplo que eu peguei aki no forum...
Mas ele não funciona com centavos... se eu tenho 0,25 centavos ele erredonda para 0.
Quero o seguinte:
De 0,36 para 0,40
De 1,48 para 1,50
De 0,94 para 0,90
Obrigado pela atenção.
Ola colegas... este foi o exemplo que eu peguei aki no forum...
Mas ele não funciona com centavos... se eu tenho 0,25 centavos ele erredonda para 0.
Quero o seguinte:
De 0,36 para 0,40
De 1,48 para 1,50
De 0,94 para 0,90
Obrigado pela atenção.
Geisonc
Curtir tópico
+ 0
Responder
Posts
16/02/2004
Keitarosan
Si liga kra, Round é pra fazer o arrendamento para numeros inteiros
Testa essa linha aki kra:
Edit2.Text := FloatToStrF(StrToFloat(Edit1.Text), ffNumber, 18,1)+´0´)
Testa essa linha aki kra:
Edit2.Text := FloatToStrF(StrToFloat(Edit1.Text), ffNumber, 18,1)+´0´)
Responder
Gostei + 0
16/02/2004
Qmd
Experimente tbm o RoundTo() da unit Math ...
T++
QmD
T++
QmD
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)