新人请教各位前辈,delphi中的'四舍五入'函数和'取整'函数 怎么写的呀? 我才开始搞,delphi有这种函数吗?再开发一个数据库,请指点 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 四:Round(将实数四舍五入转为整数)取整:trunc(无条件舍去转化为整数)Frac(返回实数的小数部分)Int(返回实数的整数部分) floor 和 ceil 是 math unit 里的函数,使用前要先 Uses Math。 trunc 和 round 是 system unit 里的函数,缺省就可以用。 floor 直接往小的取,比如 floor(-123.55)=-124,floor(123.55)=123 trunc 直接切下整数,比如 trunc(-123.55)=-123, floor(123.55)=123 ceil 直接往大的取,比如 ceil(-123.55)=-123, ceil(123.55)=124 round 计算四舍五入,比如 round(-123.55)=-124,round(123.55)=124 round函数有buground(123.5)=124round(122.5)=122 ////round(123.55)=123{ Round ---> DoRound }function DoRound(Value: Extended): Int64; procedure Set8087CW(NewCW: Word); asm MOV Default8087CW,AX FNCLEX FLDCW Default8087CW end;const RoundUpCW = $1B32;var OldCW : Word;begin OldCW := Default8087CW; try Set8087CW(RoundUpCW); Result := Round(Value); finally Set8087CW(OldCW); end;end;{ DoRound }DoRound(122.5)=123 ////DoRound(123.55)=123 摘自《超级猛料》 不好意思,写错了 ////round(123.55)=124 ////DoRound(123.55)=124 这个我测试了一下,round确实有bug,但是如何把delphi的round函数替换成DoRound呢? delphi播放midi背景音乐 delphi的字符串操作(一分钟你就搞定) 新手求教:控件发布问题 取access表中的字段名 邮件的接收,使用控件:Indy Client 组件里的IdPOP31 菜鸟的问题:ClientDataSet1中如何知道连服务器的DataSetProvider1? 求教一个FUNCTION 谁有写好的DES 和3DES 函数 或DLL ? 急(给高分) 请说一说Paradox数据库文件扩展名的含义 您好,大家帮帮忙看看这个服务要怎么处理才好 ? 写服务程序有哪些基本要求 ?(那次那位要解锁 win 的朋友也请进) delphi7 的 update
取整:trunc(无条件舍去转化为整数)
Frac(返回实数的小数部分)
Int(返回实数的整数部分)
trunc 和 round 是 system unit 里的函数,缺省就可以用。
floor 直接往小的取,比如 floor(-123.55)=-124,floor(123.55)=123
trunc 直接切下整数,比如 trunc(-123.55)=-123, floor(123.55)=123
ceil 直接往大的取,比如 ceil(-123.55)=-123, ceil(123.55)=124
round 计算四舍五入,比如 round(-123.55)=-124,round(123.55)=124
round(122.5)=122 ////round(123.55)=123
{ Round ---> DoRound }
function DoRound(Value: Extended): Int64; procedure Set8087CW(NewCW: Word);
asm
MOV Default8087CW,AX
FNCLEX
FLDCW Default8087CW
end;const
RoundUpCW = $1B32;
var
OldCW : Word;
begin
OldCW := Default8087CW;
try
Set8087CW(RoundUpCW);
Result := Round(Value);
finally
Set8087CW(OldCW);
end;
end;{ DoRound }DoRound(122.5)=123 ////DoRound(123.55)=123 摘自《超级猛料》
////round(123.55)=124
////DoRound(123.55)=124
替换成DoRound呢?