// 無條件進位
function trunc2(num: real; dcml: integer) : real;
var
  LFactor: Double;
begin
    LFactor := IntPower(10, dcml);
    Result := Round((num * LFactor)+ 0.49999) / LFactor ;
end;

文章標籤
delphi 無條件進位
全站熱搜
創作者介紹
創作者 Jerry 的頭像
Jerry

Dream

Jerry 發表在 痞客邦 留言(0) 人氣()

E-mail轉寄