对日期的处理.docVIP

对日期的处理，一般在有日期限制的共享、商业软件中经常使用到。如果你打算编写一款有日期限制的软件，熟悉使用下面的函数即可以实现。 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。 返回上一页打 印收 藏 delphi 7常用函数---字符串、数组操作函数 减小字体 增大字体 作者佚名来源不详发布时间2008-12-14 0:33:27发布人xuedelphi 对字符串及数组的操作，是每个程序员必须要掌握的。熟练的使用这些函数，在编程时能更加得心应手。 1.Copy　　功能说明：该函数用于从字符串中复制指定范围中的字符。该函数有3个参数。第一个参数是数据源(即被复制的字符串)，第二个参数是从字符串某一处开始复制，第三个参数是要复制字符串的长度(即个数)。最后函数返回一个新的字符串(即是我们指定要复制的字符串内容)。　　参考实例：　　var　　 　S: String;　　 　MyStr: String;???????? // 保存新的字符串　　begi