请问，如何将Double类型的数据取整，并将其转换成integer型

[wt_sanlian]

var
a :double;
b:double;
c : integer;
begin
a := 12.3;
b := 11.6;

c := integer(a) - integer(b) ; 我期望的结果是整数 1，但编译器不同意


请问各路高手，如何解决这个问题？

[Little2000]

c := Trunc(a)-Trunc(b);

[fansnaf]

showmessage(inttostr(round(i)-round(j)));

[aiirii]

用 Trunc;
function Trunc(X: Extended): Int64;

[fenglaile]

Little2000(Rainy)的方法正确，来晚一步

[wt_sanlian]

Integer 是32位，而trunc 是64位，会不会有影响？

[linuxyf]

用trunc()函数，不能用round（），trunc截去小数点后面的，round四舍五入。

[wt_sanlian]

谢谢

[popmailzjw]

不会有问题的

[mxk19791116]

来看看这个吧，一定对

procedure TForm1.Button2Click(Sender: TObject);

var
a :double;
b:double;
c : integer;
begin
a := 12.3;
b := 11.6;
c := Trunc(a)-Trunc(b);
showmessage(inttostr(c));

end;

[江山易改]

var a,b : Double ;
C : integer ;
begin
a:=12.3 ;
b:=11.6 ;
c := StrToint(Copy( Format('%12.2f',[a]),1,Pos('.',Format('%12.2f',[a]))-1))
- StrToint(Copy( Format('%12.2f',[b]),1,Pos('.',Format('%12.2f',[b]))-1)) ;
end;

[newnewworm]

trunc()去掉后面小数位！