datetime与DATETIME

Question

为什么二个时间日期相减的不到秒数啊
VAR
S,B:double;
SF,TTT,DateTime:STRING;begin
DateTime:='2004-10-13 9:34:05';
TTT:= DATETIMETOSTR(NOW);
S:=StrtoDateTime(TTT)-strtodatetime(FormatDateTime('yyyy-MM-dd hh:mm:ss',StrtoDateTime(DateTime)));
//得到分钟
    S:=S*24*60;
B:=S;
end;

Answer 1

要这么麻烦吗？
直接TdateTime减就是了结果用DecodeTime处理就是了http://lysoft.7u7.net

Answer 2

SecondsBetween(const ANow, AThen: TDateTime)

Answer 3

为什么不看一下TDateTime的定义，整数部分是天数，小数部分是当天的时间，两个日期想减，得到的整数部分是天数啊，建议用小小的方法

Answer 4

VAR
  S,B:double;
  SF,TTT,DateTime:STRING;
  h,n,sec,m:Word;
begin
  DateTime:='2004-10-13 9:34:05';
  S:=Now-StrToDateTime(DateTime);
  DecodeTime(S,h,n,sec,m);
  B:=Trunc(S)*24*60*60+h*60*60+n*60+sec;
end;