在Delphi中:如何将TDateTime四舍五入到最接近的秒,分钟,五分钟等？

procedure RoundDateTime(var ADateTime: TDateTime; ARounding: Integer);
begin
  case ARounding of
    0: ADateTime := Round(ADateTime * 86400) / 86400; // 四舍五入到最接近的秒
    1: ADateTime := Round(ADateTime * 1440) / 1440;   // 四舍五入到最接近的分钟
    2: ADateTime := Round(ADateTime * 288) / 288;     // 四舍五入到最接近的五分钟
  end;
end;

var
  DateTime: TDateTime;
begin
  DateTime := Now; // 假设当前时间为 2022-01-01 12:34:56

  RoundDateTime(DateTime, 0); // 四舍五入到最接近的秒
  ShowMessage(DateTimeToStr(DateTime)); // 显示结果：2022-01-01 12:34:56

  RoundDateTime(DateTime, 1); // 四舍五入到最接近的分钟
  ShowMessage(DateTimeToStr(DateTime)); // 显示结果：2022-01-01 12:35:00

  RoundDateTime(DateTime, 2); // 四舍五入到最接近的五分钟
  ShowMessage(DateTimeToStr(DateTime)); // 显示结果：2022-01-01 12:35:00
end;