请问trunc是什么函数

Question

if trunc(100*(A-B))=0 then ..
什么意思？

Answer 1

只取整数部分？
譬如trunc(1.899) = 1;

Answer 2

Pascal 你难道没看就学Delphi了？佩服！round()是四舍五入取整，Trunc()是截去小数部分取整数部分!

Answer 3

Truncates a real number to an integer.
example:
var   S, T: string;
begin
   Str(1.4:2:1, T);
   S := T + ' Truncs to ' + IntToStr(Trunc(1.4)) + #13#10;
   Str(1.5:2:1, T);
   S := S + T + ' Truncs to ' + IntToStr(Trunc(1.5)) + #13#10;
   Str(-1.4:2:1, T);
   S := S + T + ' Truncs to ' + IntToStr(Trunc(-1.4)) + #13#10;
   Str(-1.5:2:1, T);
   S := S + T + ' Truncs to ' + IntToStr(Trunc(-1.5));
   MessageDlg(S, mtInformation, [mbOk], 0, mbOk);
end;