Arredondamento de Valores
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
Curtidas 0
Respostas
Keitarosan
16/02/2004
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´)
GOSTEI 0
Qmd
16/02/2004
Experimente tbm o RoundTo() da unit Math ...
T++
QmD
T++
QmD
GOSTEI 0