请问：在delphi里面怎样取得一个实数的小数部分！ 多谢！

[whyNotHere]

例如：
var
a: double;
b: double;
begin
a := 32.34567;
//b := ? 怎样写这个语句，使得b = 0.34567;
end;

非常感谢!

[darkliu]

Function Int(X:Real):Real;返回X的整数部分，X为实数类型，函数结果为X经过负向舍入(向0舍入)的实数。

b:=a-int(a)

[jadeluo]

var
a: double;
b: double;
begin
a := 32.34567;
b := a - trunc(a);
end;

[老之]

Frac(X:real):real 返回参数小数部分

b:=Frac(a);

[才子鸣]

UP