delphi 如何判断两个时间 相差大于2 分钟
delphi 如何判断两个时间 相差大于2 分钟

[解决办法]
两个时间直接减，
24小时是：1
1小时是：1/24
1分钟是：1/24/60
[解决办法]

uses DateUtils;

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
var
vDateTime1,vDateTim2:TDateTime;
begin
//MinuteOf 得到时间中的分钟
if MinuteOf(vDateTime1) - MinuteOf(vDateTime1) > 2 then
ShowMessage('yes');
end;
[解决办法]
uses DateUtils;

MinutesBetween(DateTime1,DateTime2)方法返回两个datetime类型的时间相差的分钟数。
[解决办法]

Delphi(Pascal) code

var  T1, T2: TDateTime;begin  T1 := StrToDateTime('2012-02-09 00:00:00');  T2 := StrToDateTime('2012-02-09 00:02:01');  if (T2 - T1) > (0.000694444444444444 * 2) then    ShowMessage('大于2分钟')  else    ShowMessage('小于等于2分钟')end;