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。
|