时间相减再加4，Delphi 怎么做？在线等候。

Question

时间相减再加4，
先在结果不是一个数。
Delphi 怎么做？在线等候。

Answer 1

清说明白，时间是日期格式吗，TDateTime？

Answer 2

是TDateTime
比如
var d1,d2:TDateTime;
begin
  ..............
 (d1-d2)+4?
end;

Answer 3

uses dateutils
daysbetween(const ANow, AThen: TDateTime)-4
这样应该可以实现你想要的结果了

Answer 4

可以转换成秒
d1,d2,d3 : TDateTime; 
  min : double; 
begin 
  。。
  d1 :=strtodatetime('2003-5-28 12:30'); 
  d2 :=strtodatetime('2003-5-27 11:30'); 
  d3 :=dte-dts; 
  min :=d3*24*60*60+4;
end;

Answer 5

可以转换成秒
d1,d2,d3 : TDateTime; 
  min : double; 
begin 
  。。
  d1 :=strtodatetime('2003-5-28 12:30'); 
  d2 :=strtodatetime('2003-5-27 11:30'); 
  d3 :=dte-dts; 
  min :=d3*24*60*60+4;
end;
手误

Answer 6

delphi中的日期可以直接加减,如:2002-1-23减3,结果为:2002-1-20,

Answer 7

现在有个问题
Date-Date
结果是1899-12-30
单Date-strtodate('1899-12-30')
还是Date;

Answer 8

当然了
Date就相当于是int，存储的是一个数--距离1899-12-30的天数
Date-Date = 0 就表示距离1899-12-30 0天，也就是1899-12-30
strtodate('1899-12-30') = 0

Answer 9

Date-Date=0
0转换成电脑里的时间的话就是1899-12-30