请问两TDateTime类型T1，T2，T1比T2早一秒，什么用T2表示T1？

Question

如题
T1比T2早一秒
怎么用T2表示T1?

Answer 1

把T2（TDataTime）转换成毫秒（INT64 ms）再加上1000ms就等于T1了

Answer 2

if T2 = 0 then
   T1 = -1 + 1 / 86400000.0
else if T2 < 0 then
   T1 = T2 + 1 / 86400000.0
else
   T1 = T2 - 1 / 86400000.0;

Answer 3

下面更好！
if T2 > 0 then
   T1 = T2 - 1/86400000.0
else if T2 = 0 then
   T1 = -1 + 1/86400000.0
else
   T1 = T2 + 1/86400000.0;

Answer 4

上面错了！
if T2  > 0 then 
   T1 = T2 - 1/86400000.0 
else if T2 = 0 then 
   T1 = -2 + 1/86400000.0 
else 
   T1 = T2 + 1/86400000.0; 

Answer 5

同意一楼：function IncSecond(const AValue: TDateTime; const ANumberOfSeconds: Int64 = 1): TDateTime;