Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Tenho 2404 pontos a serem distribuídos em 8 edit, onde cada um recebe sua porcentagem.
No excel os valores são arredondados para baixo ou para cima automaticamente quando elimino as casas decimais.
456,76 = 457
432,72 = 433
384,64 =385
360,60 =361
264,44 =264
192,32 =192
168,28 =168
144,24 =144
Não sei como fazer esse arredondamento da mesma forma no delphi , meu sistema não aceita casa decimais, mais precisa delas pra se orientar se o arredondamento é pra cima ou pra baixo, depois desse reconhecimento de arredondamento preciso eliminar as casas decimais segue o código:
procedure TForm1.Button1Click(Sender: TObject);
var
v1: integer;
v2: integer;
v3: integer;
v4: integer;v1 := StrToInt(Edit1.Text);
v2 := StrToInt(Edit10.Text);
v3 := (v1*v2);
v4 := (v3 Div 100);
edit2.text := IntToStr(v4);
Aparentemente o delphi não esta reconhecendo as casas decimais para poder arredondar pra cima e pra baixo, ou está desconsiderando as mesmas.
Carregando comentários...