求两个时间的差

Question

   给出一个任意时间 如2011年08月22日03点16分 ；把它转化成从19700101开始算起，一共有多少秒，最好给出代码

Answer 1

dateunits单元中，有很多时间计算函数，自己看帮助

Answer 2

date1,date2都是日期型的.日期型的原型是浮点型的，直接可以参加浮点运算。1代表1天
(date1-date2)X24X60X60就可以了

Answer 3

系统中Date19700101 = 25569; 这是通过什么算出来的？  我刚开始学，还是菜鸟级别，能不能给出代码？

Answer 4

uses DateUtils;
 var
   d:Double;
begin
 d:=MilliSecondSpan(strtodatetime('1970-1-1 00:00:00'),strtodatetime('2011-8-22 3:16:00));
end;
"d"就是你要得到的秒数，哈哈可以给分了吧

Answer 5

有一个函数 
uses
  DateUtils;  SecondsBetween(现在时间, 过去时间)
  就可以算出秒数了

Answer 6

专门有介绍Delphi函数的书，查一下有关时间方面的，网上也有下载。

Answer 7

uses DateUtils;
 var
  d:Double;
begin
 d:=MilliSecondSpan(strtodatetime('1970-1-1 00:00:00'),strtodatetime('2011-8-22 3:16:00'));
end;
"d"就是你要得到的秒数