关于收费取整问题

Question

如果价格是24.7元，如果取整，还有取小数？做成这样：合计：24.7
冲减：0.7
实收：24

Answer 1

trunc() 取整。
减去取整后的数就得到小数了。

Answer 2

procedure TForm1.Button2Click(Sender: TObject);
begin
  edit1.Text:=inttostr(trunc(24.7)); //取整數，不進位
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  edit1.Text:=inttostr(round(24.7));//小數為6時，則進一（結果＝25）
end;根據自已的需要，權衡一下~~