RSS订阅 | 匿名投稿
您的位置:网站首页 > 时间 > 正文

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

作者:admin 来源:未知 日期:2010/4/23 11:22:15 人气: 标签:

声明: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

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址: