设为首页 - 加入收藏 - 网站地图 - RSS订阅 村姑网-www.cunguer.com
当前位置:首页 > 软件开发 > delphi > 正文

delphi 2种方法获得今天是一年中的第几天及某日期是某年的第几天

时间:2020-03-16 06:38:50 来源:村姑网 作者:喜欢安静 阅读: 0 次
导读:在delphi中,想要获得今天是今年的第几天,以及获得某个日期是该日期所在年份的第几天是非常简单的,只需使用DayOfTheYear函数或DecodeDateDay函数即可获得今天是一年当中的第几天,而且使用DayOfTheYear函数或DecodeDateDay函数,还可以获得某日期是某年的第几天。在使...

delphi中,想要获得今天是今年的第几天,以及获得某个日期是该日期所在年份的第几天是非常简单的,只需使用DayOfTheYear函数或DecodeDateDay函数即可获得今天是一年当中的第几天,而且使用DayOfTheYear函数或DecodeDateDay函数,还可以获得某日期是某年的第几天。

在使用DayOfTheYear,DecodeDateDay时,需要uses System.DateUtils单元。

delphi使用DayOfTheYear获得今天是一年当中的第几天:

procedure TForm1.btn1Click(Sender: TObject);
var
  d:TDateTime;
begin
  d := Date();  //获得今天的日期
  mmo1.Clear;
  mmo1.Lines.Add('今天的是:'+DateToStr(d));//www.cunguer.com 村姑网
  mmo1.lines.Add('今天是今年的第'+IntToStr(DayOfTheYear(d))+'天') ;
end;

delphi使用DecodeDateDay函数获得今天是今年的第几天:

procedure TForm1.btn3Click(Sender: TObject);
var
  outyear,dayofyear:Word;
  d:TDateTime;
begin
  d := Date();  //获得今天的日期
  DecodeDateDay(d,outyear,dayofyear); //获得d中的年份和日期是该年的第几天
  mmo1.Clear;//www.cunguer.com 村姑网
  mmo1.lines.Add('今天是今年的第'+IntToStr(dayofyear)+'天') ;
end;

delphi使用DecodeDateDay函数获得某日期中的年份以及该日期是该年的第几天:

procedure TForm1.btn2Click(Sender: TObject);
var
  outyear,dayofyear:Word;
  d:TDateTime;
begin
  d := StrToDateTime('2019/05/20') ;  //获得今天的日期
  DecodeDateDay(d,outyear,dayofyear); //获得d中的年份和日期是该年的第几天
  mmo1.Clear;
  mmo1.lines.Add('某日期是'+IntToStr(outyear)+'年') ;//www.cunguer.com 村姑网
  mmo1.lines.Add('某日期是该年的第'+IntToStr(dayofyear)+'天') ;
end;

delphi使用DayOfTheYear获得某日期是某年当中的第几天:

procedure TForm1.btn4Click(Sender: TObject);
var
  d:TDateTime;
begin
  d := StrToDateTime('2019/05/20') ;  //获得今天的日期
  mmo1.Clear;//www.cunguer.com 村姑网
  mmo1.lines.Add('某日期是该年的第'+IntToStr(DayOfTheYear(d))+'天') ;
end;

上面前2个方法,可以获得今天是今年中的第几天,后2方法,可以指定某个日期,从而获得该日期的年份以及该日期是该年份的第几天。

最终程序运行效果如下:

delphi获得日期是一年中的第几天程序运行效果图

当然,如果你不想使用delphi系统自带的函数的话,也可以自己写一个函数,大概方法是先获得某个日期是平年还是闰年,然后获得该日期的月份,然后月份乘以该月份在该年中的天数,然后相加就可以了。

更多delphi关于日期的函数,您可以查看下面的文章:

delphi 计算今天是一年中的第几周

delphi System.DateUtils单元在哪里?怎么引用或找不到怎么办

《delphi 2种方法获得今天是一年中的第几天及某日期是某年的第几天》地址:www.cunguer.com/article/356.html,本文来自村姑网,您身边的IT专家 www.cunguer.com,转载请注明出处,您的支持是我们创作的源泉~!