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

Question

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

Answer 1

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 至今的秒数，自己四舍五入下

Answer 2

 DateUtils.MilliSecondsBetween(vDateTime1,vDateTime2);

Answer 3

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