Question

delphi中求时间段分钟数

两个时间段相减得到的时间怎么得到分钟数，例：1：12：24
怎么得到72分钟？？
跪求答案，我只有这么多积分~

Answer 1

uses dateutils;

var
d :tdatetime;
begin
d := strtodatetime('16:20:00');
showmessage(inttostr(minuteoftheday(now-d)))
end;

Answer 2

定义函数：function GetTimeCount，如下：

function GetTimeCount(sTime: TDateTime): Integer; //处理时间，由Tdatetime格式返回总数
var
vHour, vMin, vSec, vMsec: Word;
begin
Result := 0;
DecodeTime(sTime, vHour, vMin, vSec, vMsec);
Result := vHour * 3600 + vMin * 60 + vSec;
end;

例如你想得到时间段：Time1，Time2的分钟数，可以这样：
var
TheMin: Integer; //你想要的结果
begin
TheMin := (GetTimeCount(Time2) - GetTimeCount(Time1)) div 60;
end;

Answer 3

uses dateutils;

用minuteof

Answer 4

不会