怎么求两个datetime的时间差？求出两者相隔多少秒？或者多少分钟

Question

急！

Answer 1

date1-date2;//天数
(date1-date2)*24;//小时数
(date1-date2)*24*24;//分钟数
(date1-date2)*24*24*24;//秒数

Answer 2

date1-date2;//天数
(date1-date2)*24;//小时数
(date1-date2)*24*60;//分钟数
(date1-date2)*24*60*60;//秒数

Answer 3

不对吧
date1-date2;//天数
(date1-date2)*24;//小时数  这里岂不是总是24的倍数了？？？万一相差3小时怎么办啊

Answer 4

二楼是对的，(date1-date2)*24;//小时数  这里岂不是总是24的倍数了？？？万一相差3小时怎么办啊
date1-date2减出来并不一定都是整数的，自己试试就知道了procedure TForm1.Button1Click(Sender: TObject);
var t1,t2:TDateTime;
begin
    t1:=StrToDateTime('2004-1-2 12:22:33');
    t2:=StrToDateTime('2004-1-2 15:22:33');
    ShowMessage(vartostr((t2-t1)*24));
end;

Answer 5

date1-date2;//天数
(date1-date2)*24;//小时数
(date1-date2)*24*60;//分钟数
(date1-date2)*24*60*60;//秒数1表示一天，1/24是一个小时以此类推就可以计算出一份钟是多少了

Answer 6

uses DateUtils;procedure TForm1.Button1Click(Sender: TObject);
var
  AYear,AMonth,ADay,AHour,AMinute,ASecond,AMilliSecond:Word;
begin
  //分别取当前时间的年、月、日、小时、分钟、秒、毫秒;  
  DecodeDateTime(now,AYear,AMonth,ADay,AHour,AMinute,ASecond,AMilliSecond);
　label1.Caption:=floattostr(ayear);//年
  label2.Caption:=floattostr(AMonth);//月
  label3.Caption:=floattostr(ADay);//日
  label4.Caption:=floattostr(AHour);//小时
  label5.Caption:=floattostr(AMinute);//分钟
  label6.Caption:=floattostr(ASecond);//秒
  label7.Caption:=floattostr(AMilliSecond);//毫秒
end;

Answer 7

如：DateTimePicker1 的Date 为2002-4-16，Time 为 15:00:00
    DateTimePicker2 的Date 为2002-4-16，Time 为 9:00:00则datetimepicker1-datetimepicker2相减为0.25天（6小时）想得到时间则 ×24 即可！ ( 得到小时数)如下：
procedure TForm1.Button2Click(Sender: TObject);
begin  // 得到小时数
Edit1.Text:=floattostr((DateTimePicker1.DateTime-DateTimePicker2.DateTime)*24);
end;
其他的以此可得.http://princed.mblogger.cn/

Answer 8

形如function DaysBetween(const ANow, AThen: TDateTime): Integer;之类的函数
uses dateutils