RAD Studio 10.2.3 测试√
procedure TForm_Tips.Button_IncSecondClick(Sender: TObject);
var
mDateTime: TDateTime;
begin
mDateTime := Now;
Memo_Log.Lines.Add('当前时间:' + DateTimeToStr(mDateTime));
mDateTime := IncSecond(mDateTime, 600);
Memo_Log.Lines.Add('改后时间:' + DateTimeToStr(mDateTime));
end;
一点点笔记,以便以后翻阅。