我现在有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博客

DELPHI 时间加减运算

最新文章