DELPHI 时间加减运算

我现在有Edit1里面显示为 2007-05-22 18:22:00 另外一个Edit2里有值35

我现在想用Button1把18:22:00的分钟加上35显示在Edit12007-05-22 18:57:00里.

[@more@]

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text:=DateTimeToStr(StrToDateTime(Edit1.Text)+StrtoDateTime('0:'+Edit2.Text+':0'));
end;
Edit2的值最大不能超过59

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/729024/viewspace-1056513/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/729024/viewspace-1056513/