Delphi时间计算

procedure TForm1.Button1Click(Sender: TObject);
var
TimeStamp : TTimeStamp;
time1, time2 : TDateTime;
timeDiff : integer;
begin
  time1 := strToTime(edit1.text); // 转换成时间格式
  time2 := strToTime(edit2.text);
  TimeStamp := DateTimeToTimeStamp(time2 - time1); // 算出相差值
  Dec(TimeStamp.Date, TTimeStamp(DateTimeToTimeStamp(0)).Date); 
  timeDiff := (TimeStamp.Date*24*60*60)+(TimeStamp.Time div 1000);
  timeDiff := round(timeDiff/60);   // 转换成分钟
  showmessage('Diff in min = '+inttostr(timeDiff)); // 显示
end;