时间相减得到分钟数

Question

我有2个时间，2008-12-20 10:40:11 与2008-12-21 10:08:10 
我想分别取他们的后段10:40:11与10:08:10相减得到他们的分钟数。
请问各位大侠，代码怎么写，谢谢。
给你们散分了。

Answer 1

function DatetimeToMinute(D: TDateTime): DWORD;
var
  H, M, S, Ms: Word;
begin
  DecodeTime(D, H, M, S, Ms);
  Result :=  Trunc(D) * 24 * 60 +
    H * 60 +
    M ;
end;

Answer 2

D提供的函数
function MinutesBetween(const ANow, AThen: TDateTime): Int64;

Answer 3

引用  DateUtils  單元

Answer 4

引用  DateUtils  單元