如何计算两个日期时间型数据之间相差的小时和分钟

Question

SysUtils单元中的函数DecodeTime()可以将时间分解成年、月、日、时、分、秒
例如：
procedure GETDECODETIME;OVERLOAD;
var Year, Month, Day, Hour, 
           Min, Sec, MSec: WORD;
begin
  DecodeDate(NOW, Year, Month, Day);
  DecodeTime(NOW, Hour, Min, Sec, MSec);
end;

Answer 1

var Year, Month, Day, Hour, 
           Min, Sec, MSec: WORD;
这些最好定义成全局变量。

Answer 2

小时:(dt2-dt1)*24;(-4.5)
分钟:(dt2-dt1)*24*60:(270)     ____     ____
     \ p \   / g /
      \ l \_/ n /
       \ a   o /
        \ i s /
         \ n /
          \_/

Answer 3

直接相减就可以了。
datediff  :=  Now  -  EncodeDate(2001,  1,  1);

Answer 4

declare @a datetime
declare @b datetime
set @a='2002-04-26 23:00'
set @b='2002-05-01 8:05'
select datediff(minute,@a,@b)用sql,方便,
给分