• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

delphi7常用日期函数

原作者: [db:作者] 来自: [db:来源] 收藏 邀请
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。


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
matlab拟合函数的三种方法发布时间:2022-07-18
下一篇:
Matlab 解一元非线性方程发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap