Arredomdamento
Boa tarde galera !!!
Tenho um sistema e estou usando client data set.
Tenho uma valor quebrado ex : 39,999 como faço pra arredondar esse valor para 40.
Até mais !!!
Tenho um sistema e estou usando client data set.
Tenho uma valor quebrado ex : 39,999 como faço pra arredondar esse valor para 40.
Até mais !!!
Anonymous
Curtidas 0
Respostas
Anonymous
10/02/2003
var
S, T: string;
begin
Str(1.4:2:1, T);
S := T + ´ rounds to ´ + IntToStr(Round(1.4)) + #1310;
Str(1.5:2:1, T);
S := S + T + ´ rounds to ´ + IntToStr(Round(1.5)) + 1310;
Str(-1.4:2:1, T);
S := S + T + ´ rounds to ´ + IntToStr(Round(-1.4)) + 1310;
Str(-1.5:2:1, T);
S := S + T + ´ rounds to ´ + IntToStr(Round(-1.5));
MessageDlg(S, mtInformation, [mbOk], 0);
S, T: string;
begin
Str(1.4:2:1, T);
S := T + ´ rounds to ´ + IntToStr(Round(1.4)) + #1310;
Str(1.5:2:1, T);
S := S + T + ´ rounds to ´ + IntToStr(Round(1.5)) + 1310;
Str(-1.4:2:1, T);
S := S + T + ´ rounds to ´ + IntToStr(Round(-1.4)) + 1310;
Str(-1.5:2:1, T);
S := S + T + ´ rounds to ´ + IntToStr(Round(-1.5));
MessageDlg(S, mtInformation, [mbOk], 0);
GOSTEI 0