时间日期函数大盘点.docVIP

Delphi 6常用日期与时间函数 D.1 获取特定的日期与时间 本小节将为您介绍Delphi 6所提供的获取特定日期与时间的函数。这些函数稍后将有详细的范例说明。笔者这里将以列表的方式先说明每一个函数所代表的意义,如图示: 函数名称 单元文件 所代表的意义 Now SysUtils 此函数可返回现在的日期与时间,其返回值为TDateTime类型 Date SysUtils 此函数可返回现在的日期,其返回值为TDateTime类型 Time SysUtils 此函数可返回现在的时间,其返回值为TDateTime类型 Today DateUtils 此函数可返回今天的日期,其返回值为TDateTime类型,此函数的结果与Date函数相同。 Tomorrow DateUtils 此函数可返回昨天的日期,其返回值为TDateTime类型 Yesterday DateUtils 此函数可返回明天的日期,其返回值为TDateTime类型 Currentyear SysUtils 此函数可返回现在所属的年度,其返回值为4的整数。例如:2001 Hoursperday SysUtils 此常数定义每天的小时数。HoursPerDay =24; Minsperday SysUtils 此常数定义每天的分钟数。MinsPerDay = MinsPerDay*60 Secsperday SysUtils 此常数定义每天的秒数。SecPerDay = MinsPerDay *60 msecsperday SysUtils 此常数定义每天的毫秒数。MSecsPerDay =SecsperDay*1000 Now (返回当前的日期时间) 引用单元:SysUtils 函数声明:Function Now : TDateTime; 范例D-1 Procedure TForm1.Button1Click(Sender: TObject); Var MyDateTime : TDateTime; begin MyDateTime :=Now; Showmessage(DateTimeToStr(MyDateTime)); end; Date(返回当前的日期) 引用单元:SysUtils 函数声明:Function Day :TDateTime; 范例D-2 Procedure TForm1.Button1Click(Sender: TObject); Var MyDateTime : TDateTime; begin MyDateTime :=Date; Showmessage(DateTimeToStr(MyDateTime)); end; Time(返回当前的时间) 引用单元:SysUtils 函数声明:Function Time:TDateTime; 范例D-3 Procedure TForm1.Button1Click(Sender: TObject); Var MyDateTime : TDateTime; begin MyDateTime :=Time; Showmessage(DateTimeToStr(MyDateTime)); end; Today(返回今天的日期) 引用单元:DateUtils 函数声明:Function Today :TDateTime; 范例D-4 Procedure TForm1.Button1Click(Sender: TObject); Var MyDateTime : TDateTime; Begin //uses DateUtils MyDateTime :=Today; Showmessage(DateTimeToStr(MyDateTime)); end; Tomorrow(返回明天的日期) 引用单元:DateUtils 函数声明:Function Tomorrow:TDateTime; 范例D-5 Procedure TForm1.Button1Click(Sender: TObject); Var MyDateTime : TDateTime; Begin //uses DateUtils MyDateTime :=Tomorrow; //MyDateTime : Now +1; //两者相同 Showmessage(DateTimeToStr(MyDateTime)); //不包含时间部分 end; Yesterday(返回昨天的日期) 引用单元:DateUtils 函数声明:Function Yesterday :TDateTi