@@@@时间加减的简单问题，在线等待@@@@

Question

我要实现用现在的时间减去一个时间，得到一个时间差，时间格式或INT的都可以，要怎样？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  T1 : TDate;
  T3 : Double;
begin
  T1 := StrToDate('2003/01/01');
  T3 := Now - T1;
  Showmessage(floattostr(T3));
end;

Answer 2

时间类型 TDateTime;时间相减,可以直接用减法。得到的double的单位是天。也可以用相关的函数，如：
时间差 DaySpan(精确到小数位天数), DayBetween（取整天）HouseBetween, WeekBetween .....
很多相关函数。

Answer 3

我不是说过吗，是时间，不是日期，TIME的。谢谢。

Answer 4

日期和时间是一样的，都是double
type TDate = type TDateTime;
type TDateTime = type Double;

Answer 5

我的目的是：由用户在DATETIMEPICKER中选择两个天数，然后从数据库中得到在这两个日期之间的所有记录。应怎么办呢？
有哪位高手对时间日期这方面弄得比较清楚的，望不吝赐教，我都被搞晕了。

Answer 6

SELECT * FROM YOURTABLE 
    WHERE DATA BETWEEN DATA1 AND DATA2