http://tieba.baidu.com/p/1998083296

 

IncSecond:将一个TDateTime变量加减一定数量的秒数

 

声明:function IncSecond ( const StartDateTime : TDateTime {; NumberOfSeconds : Integer = 1} ) : TDateTime;

描述:IncSecond函数将传递进来的StartDateTime参数加上NumberOfSeconds数量的秒数。

年份、月份、日期和小时数,会相应的增减。

增减的数量是可选的,默认为1。

备注:没有DeSecond函数,而是在IncSecond函数使用一个负数增加量。

var
myDate : TDateTime;
begin
// 初始化变量
myDate := EncodeDateTime(2005, 12, 31, 23, 59, 0, 0);
ShowMessage('myDate = '+DateTimeToStr(myDate));

// 加上60秒
myDate := IncSecond(myDate, 60);
ShowMessage('myDate + 60 seconds = '+DateTimeToStr(myDate));

// 减去120秒
myDate := IncSecond(myDate, -120);
ShowMessage('myDate - 120 seconds = '+DateTimeToStr(myDate));
end;

程序运行结果:

myDate = 2005-12-31 23:59:00

myDate + 60 seconds = 2006-1-1

myDate - 120 seconds = 2005-12-31 23:58:00