delphi7 常用日期函数

1.Date
　　功能说明：返回当前的日期。
　　参考实例：
　　 procedure T Form1.Button1Click(Sender: TObject);
　　 begin
　　 　Label1.Caption := '今天是：' + DateToStr(Date);
　　end;
　　Label显示为：今天是2005年1月1日。

 

2.DateToStr
　　功能说明：将日期型转换为字符型。
　　参考实例：
　　var
　　 　S: String;
　　begin
　　 　S := DateToStr(Date);
　　end;

3.DateTimeToStr
　　功能说明：将DateTime型转换为字符型。
　　参考实例：
　　var
　　 　S: String;
　　begin
　　 　S := DateTimeToStr(Now);
　　end;

4.DayOfTheMonth  (所在单元：DateUtils)
　　功能说明：获取指定日期的日。
　　参考实例：Label1.Caption := IntToStr(DayOfTheMonth(Now));
假设当前日期为2005年1月2日，那么Label将显示为2。

5.DayOfTheWeek  (所在单元：DateUtils)
　　功能说明：根据指定日期，获取星期几。
　　参考实例：Label1.Caption := IntToStr(DayOfTheMonth(Now));
　　假设当前日期为2005年1月2日，那么Label将显示为7。根据返回的值来判断是周几。7表示星期天，1为星期一，依类类推。

6.DayOfTheYear  (所在单元：DateUtils)
　　功能说明：根据指定日期，获取天数。
　　参考实例：Label1.Caption := IntToStr(DayOfTheYear(Now));
　　假设当前日期为2005年1月2日，那么Label将显示为2。表示是2005年的第2天。

7.DayOf  (所在单元：DateUtils)
　　功能说明：根据指定的日期，返回日。
　　参考实例：Label1.Caption := IntToStr(DayOf(Date));
　　假设当前日期为2005年1月2日，那么Label将显示为2。

8.IsLeapYear
　　功能说明：根据指定的年，判断是否为闰年。可使用YearOf函数获取年。
参考实例：
procedure TForm1.Button1Click(Sender: TObject);
　　begin
　　 　if IsLeapYear(YearOf(Date)) then ShowMessage('是闰年')
　　 　else ShowMessage('不是闰年');
　　end;
9.MonthOf  (所在单元：DateUtils)
　　功能说明：根据指定的日期，返回月份。
　　参考实例：Label1.Caption := IntToStr(MonthOf(Date));
　　假设当前日期为2005年1月2日，那么Label将显示为1。

10.Now
　　功能说明：返回当前日期及时间。
　　参考实例：
　　procedure TForm1.Button1Click(Sender: TObject);
　　begin
　　 　Label1.Caption := '现在是：' + DateTimeToStr(Now);
　　end;

11.YearOf  (所在单元：DateUtils)
　　功能说明：根据指定的日期，返回年。
　　参考实例：Label1.Caption := IntToStr(YearOf(Date));
　　假设当前日期为2005年1月2日，那么Label将显示为2005。

转载于:https://www.cnblogs.com/kylskjb/archive/2009/12/01/1614910.html