delphi - 将时间添加到 TDateTime

Question

我想将秒添加到 TDateTime 变量中，以便结果是分钟的顶部。例如，如果是 08:30:25，我想更改 TDateTime 变量来存储 08:31:00。

我看到 TDateTime 有一个 Decode 函数，我可以使用它。但是，没有编码函数可以将更改后的时间放回到 TDateTime 变量中。

Answer 1

使用DateUtils可以这样做:

Uses
  DateUtils;

var
  Seconds : Word;    

Seconds := SecondOfTheMinute(MyTime);  // Seconds from last whole minute
// Seconds := SecondOf(MyTime); is equivalent to SecondOfTheMinute()
if (Seconds > 0) then
  MyTime := IncSecond(MyTime,60 - Seconds);