delphi yyyy-mm-dd hh:mm:ss与秒数如何互换

[yzydyh888]

如题：在delphi 中yyyy-mm-dd hh:mm:ss与秒数如何互换以1970.1.1 0:0:0为起始时间
急求

[sololie]

var
  sDt, eDt: TDateTime;
  d: Extended;
begin
  sDt := StrToDateTime('1970-01-01 00:00:00');
  eDt := Now;
  d := (eDt - sDt) * 24 * 60 * 60;
  ShowMessage(FloatToStr(d));// 得到1970-01-01 00:00:00 至今的秒数，自己四舍五入下

[lyhoo163]

引用

var sDt, eDt: TDateTime; d: Extended; begin sDt := StrToDateTime('1970-01-01 00:00:00'); eDt := Now; d := (eDt - sDt) * 24 * 60 * 60; ShowMessage(FloatToStr(d));// 得到1970-01-01 00:00:00 至今的秒数，自己四舍五入下

支持正解。

[jayqiang]

DateUtils.MilliSecondsBetween(vDateTime1,vDateTime2);

[sololie]

LS的这个是求毫秒的，要用就用SecondsBetween。 不过如果没有更多时间计算需求的话没必要再额外引入DateUtils个单元，加大编译后文件的大小