是关于日期计算的问题，怎样才能将TDATE型转换成Integer型.给高分

Question

i : variant
 i := Date1-Date2

Answer 1

TDate类型本身是浮点数.
var
  Date1:TDate;
begin
  Date1 := Date - 1; //就是昨天。不会出错,
end;

Answer 2

too easy.TDate本来就是一个双精度的浮点数，你可以用round函数把他转换成整数。
你可以用如下代码试一试：
先在窗体上放一个TDateTimePicker控件，然后放一个button在button的click事件里加入以下代码：
var temp:Tdate;
    hehe:int64;
begin
  temp:=DateTimePicker1.Date;
  hehe:=round(temp);
  caption:=inttostr(hehe);
end;
运行程序后点击button就可以在窗体的标题栏上看到结果了。别忘了给我加高分呀。