DELPHI时间的运算方法

Question

请教DELPHI的时间计算方法：
A:2010-12-20 12:00:00  开始时间B:2010-12-20 13:20:00  结束时间C:                     时间差（分钟）
//----------C:=B-A;如何计算出他们中间间隔了多少分钟,谢谢（请给出详细过程代码）！

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  A,B :TDateTime;
  C :Double;
begin
  A := StrToDateTime('2010-12-20 12:00:00');
  B := StrToDateTime('2010-12-20 13:20:00');
  C := (B-A)*24*60;//B-A得出结果是天数，所以乘24，再乘60.
  showmessage('分钟是：'+ floatToStr(C));
end;

Answer 2

uses DateUtils;var
  d1,d2: TDateTime;
  DisMin: Cardinal;
begin
  d1 := StrToDateTime('2010-12-20 12:00:00');
  d2 := StrToDateTime('2010-12-20 13:20:00');
  DisMin := MinutesBetween(d2,d1);
  ShowMessage(Format('Dis Min: %d',[DisMin]));
end;