Question

delphi请问怎么增加时间？

比如我正常的是Lbl.Caption := FormatDateTime('yyyy/MM/DD HH:MM:SS',Now())；
我想做个循环，就是循环一次就在原有日期上增加15秒。直到停止。

2016/09/20 14:31：00
2016/09/20 14:31：15
2016/09/20 14:31：30
2016/09/20 14:31：45
2016/09/20 14:32：00
每次增加15秒
最后一个写错了，不要在意细节— —！

Answer 1

在 delphi 里对于日期和时间的计算，专门提供了一个单元的功能函数。

其中，增加秒数的计算，可以用函数 IncSecond 来完成，其原型定义如下：

function IncSecond(const AValue: TDateTime; const ANumberOfSeconds: Int64 = 1): TDateTime;

要使用这个函数，你需要在单元的 uses 里添加 DateUtils 或是 System.DateUtils。

示例代码如下：

效果截图：