标签：
对日期的处理，一般在有日期限制的共享、商业软件中经常使用到。如果你打算编写一款有日期限制的软件，熟悉使用下面的函数即可以实现。
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.在keypress事件里面，Showmessage（IntToStr（Ord（Key）））；这样获得值在刚才的程序中就可以用了！
标签：
原文地址：http://www.cnblogs.com/zty123/p/5930505.html
