如何求时间差：（要返回整型数值）

Question

很简单嘛，用i:=DateTimePicker2.Date-DateTimePicker1.Date就可以了，只要是date不是now,即不含有分秒即可，date在delphi中是浮点数,但是没有时分秒的日期是整数，只要让他们相减即可。

Answer 1

DateTime和Date都是双精度型的浮点数
整数部分是日期，小数部分是时间。
相减取整就得出天数了。

Answer 2

i:=round(DateTimePicker2.Date-DateTimePicker1.Date);
showmessage('相隔'+inttostr(i)+'天');

Answer 3

不看帮助的人给分吧
DaysBetween(const ANow, AThen: TDateTime)
适用于d6

Answer 4

就是
i:=DaysBetween(DateTimePicker2.Date,DateTimePicker1.Date)

Answer 5

使用
i:=Round(DateTimePicker2.Date-DateTimePicker1.Date);语句即可

Answer 6

直接这样：
var
  Day1,Day2:TDate;
  DeltDay:Integer;
begin
  DeltDay:=StrToInt(FloatToStr(Day1-Day2));
end;

Answer 7

An_Apple(我爱读书) 的方法最好

Answer 8

给一个例子：
procedure TForm3.Button1Click(Sender: TObject);
var
  date1, date2 :TDateTime;
begin
  date1:=strtodatetime('2001-05-04');
  date2:=strtodatetime('2001-05-01');
  ShowMessage(inttostr(trunc(date1-date2)));
end;