菜鸟问题,什么函数能使小数点后保留2位(四舍五入)(10分)

  • 主题发起人 主题发起人 duron
  • 开始时间 开始时间
D

duron

Unregistered / Unconfirmed
GUEST, unregistred user!
什么函数能使小数点后保留2位
 
设置字段的displayformat 属性即可,
如: #.##
即可实现你的要求!
 
Roundto是Delphi6新增的,如果不是Delphi6那么用下列语句自己实现一个Roundto就行了:
function Roundto(x: double; n: Integer): double;
var
Temp: Double;
begin
// 求出10的n次方
Temp := IntPower(10, n);
// 利用Round取得结果
Result := Round(x / Temp) * Temp;
end;
 
format()
or
round()
 
天哪,刚刚回答完,又有人问了!
http://www.delphibbs.com/delphibbs/dispq.asp?LID=1266882去看吧
 
哇,还是你啊!你怎么又问了呀!好奇怪!
 
有一个 Delphi 函数 速 查手册.

是一个 TXT 文件 . 写的 很全了.

Delphi 中的 函数 或 过程 全有了.

你可以 下一个 试. 找不到, 你就给我写 信 好了.

hbtomcat@21cn.com
 
什么跟什么呀!你们在哪里聊天呀!!
 
接受答案了.
 
后退
顶部