Delphi日期函数

       1.Date
　　功能说明：返回当前的日期。

　　参考实例：

　　procedure TForm1.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。