本文整理自网络，侵删。
声明：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
相关阅读 >>
Delphi 按字符串长度对tstringlist的元素进行排序
更多相关阅读请进入《Delphi》频道 >>
