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。
|
请发表评论