procedure TForm1.Button2Click(Sender: TObject);
var
  t:TTime;begin
  t:=Now;
  t:=t+10*60/(24*60*60);
  Caption := DateTimeToStr(t);
end;

解决方案 »

  1.   

    用:Ttime:=time+(分钟数/24/60) 这里的(分钟数/24/60)分别代表什么意思 
      

  2.   

    我明白了,只是我想把Ttime后面的秒数去掉。不知道该怎样做。如:17:33:45变成。17:33
      

  3.   

    TTime t;
    t=Now();
    t.DecodeTime(@a,@b,@c, 0);
    t=TDateTime(a,b, 0, 0);
      

  4.   

    我明白了,只是我想把Ttime后面的秒数去掉。不知道该怎样做。如:17:33:45变成。17:33这个很简单用FormatDateTime
      

  5.   

    delphi中的时间是这样定义的:一天为1,然后每一个小时为1/24天,每分为1/(24*60)天,
    每秒为1/(24*60*60)天
    呵呵!所以上面CaiDaoLi() 的说法正确。