当前时间处理函数

Question

有没有比较好的方法把当前的时间加一分钟，我现在有一个函数两个参数分别是开始时间和结束时间，我要做的是开始时间设置成当前的时间，结束时间自己设置一个时间段以后，请问如何解决比较有效

Answer 1

本人做过这个程序.
你要以在http://www.playicq.com/dispdocnew.php?id=6300下载本人的这个程序.

Answer 2

tqtime1.BValue :=time+ 1/1200;  //当前时间上加了一分钟

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  D:TDateTime;
begin
  D:=now;
  Edit1.Text:=DateTimeToStr(D);
  D:=D+1/24/60;
  Edit2.Text:=DateTimeToStr(D);
end;实际上TDateTime加一是加一天，加一分钟换算一下就可以。

Answer 4

Returns a date/time value shifted by a specified number of minutes.UnitDateUtilsCategorydatetime routinesDelphi syntax:function IncMinute(const AValue: TDateTime; const ANumberOfMinutes: Int64 = 1): TDateTime;