Delphi怎么没有时间类型啊，如果我要求某一时间的前100天：如2004-10-21的前一百天，该怎么写程序？

Question

Delphi怎么没有时间类型啊，如果我要求某一时间的前100天：如2004-10-21的前一百天，该怎么写程序？

Answer 1

直接减就可以了
dt1: TDateTimePicker;
dt2: TDateTimePicker;
dt2.Date:=dt1.Date-100;

Answer 2

Delphi怎么没有时间类型啊
----------------------------
怎么没有
var
  a: TDatetime;//这个就是时间类型啊天数可以直接加减的如果是小时等
则要稍微转换

Answer 3

function IncDay(const AValue: TDateTime;const ANumberOfDays: Integer): TDateTime;
例如：
var
  NewDate:TDateTime;  //时间类型
begin
  NewDate:=IncDay(Now,-100);
end;

Answer 4

2004-10-21前的100天是
strtodate('2004-10-21')-100

Answer 5

直接减就可以了
dt1: TDateTimePicker;
dt2: TDateTimePicker;
dt2.Date:=dt1.Date-100;
不行？

Answer 6

我从Oracle数据库中查出一个时间值，与DateTimePicker控间（Name=DTDate）所选日期值比较计算两者相差天数，    StrSql:='Select Min(B_Time) B_TIME from LC_PRJRECORD Where GCCODE='+StrGCCODE;
    DM.ADOQryPublic.SQL.Clear;
    DM.ADOQryPublic.SQL.Add(StrSql);
    DM.ADOQryPublic.Open;
    if DM.ADOQryPublic.Eof then exit;
    OldDate:=DM.ADOQryPublic.FieldByName('B_TIME').AsDateTime;
    NewDate:=DTDate.Date;
**  IntDays:=OldDate-NewDate;
编译时，**一句报错：
Incompatible types:'Integer' and 'Extended'
请问如何解决？

Answer 7

天！查的帮助，才知道原来Extended居然是实数类型的一种，不过，还是要请教：
请问如何把Extended转为最接近的Integer？