DELPHI生成时间种子，以当前为主30分钟生成一个新时间并保存到listbox中

[山东蓝鸟贵薪]

DELPHI生成时间种子，以当前为主30分钟生成一个新时间并保存到listbox中

保存格式为： 年-月-日　时：分：秒

假设当前时间为： 2019-12-14 23:55:53

每３０分钟产生一个新时间...

声明这个新产生的新时间段已超过当天的时间　23:59;59

所以产生的错误时间如下：
最后一个时间为：2019-12-14 00:25:53
如何修改成正正确的时间：　2019-12-15 00:25:53 '

[山东蓝鸟贵薪]

时间段超过当天的： 　2019-12-14 23;59;59
2019-12-14 23;42;17
下一行信息： 2019-12-14 00;12;17 应该是：2019-12-15 00;12;17
天数+１天的

[天行归来]

IncMinute 函数就解决了

procedure TForm1.Button3Click(Sender: TObject);
var
  i: integer;
  start: TDateTime;
begin
  start := StrToDateTime('2019-12-14 23:55:53');
  for i:=1 to 10 do
  begin
    start := IncMinute(start,30);
    ListBox1.Items.Add(DateTimeToStr(start));
  end;
end;

[山东蓝鸟贵薪]

谢谢赐教，我使用的　动态获取当前时间
我孔是找到了　　IncMinute　函数完成的