Delphi 12 时间加减

delphi 时间加减

在Delphi中，你可以使用TDateTime类型来处理时间和日期。你可以使用Now函数获取当前时间，然后使用加减运算符来进行时间的加减。

以下是一些示例代码：

uses

SysUtils, DateUtils;

var

currentTime, newTime: TDateTime;

hoursToAdd, minutesToAdd: Integer;

begin

// 获取当前时间

currentTime := Now;

// 打印当前时间

Writeln('当前时间: ', currentTime);

// 在当前时间上加上3小时

newTime := IncHour(currentTime, 3);

Writeln('3小时后: ', newTime);

// 在当前时间上减去2天

newTime := IncDay(currentTime, -2);

Writeln('2天前: ', newTime);

// 通过指定小时和分钟来加时间

hoursToAdd := 5;

minutesToAdd := 30;

newTime := IncMinute(IncHour(currentTime, hoursToAdd), minutesToAdd);

Writeln(hoursToAdd, '小时 ', minutesToAdd, '分钟后: ', newTime);

end.

在这个例子中，IncHour和IncMinute函数用于增加小时和分钟。IncDay用于增加或减少天数。Now函数用于获取当前的日期和时间。注意，所有的时间加减操作都返回一个新的TDateTime值，原始值不会被改变。

提示：AI自动生成，仅供参考

收起 