delphi-判断星期几以及今年的是第几周

最新推荐文章于 2023-03-31 12:45:21 发布

一只长不大的小菜鸟

最新推荐文章于 2023-03-31 12:45:21 发布

阅读量2.1k

点赞数

分类专栏： delphi 文章标签： delphi delphi xe

本文链接：https://blog.csdn.net/qq_24719313/article/details/89401698

版权

delphi 专栏收录该内容

18 篇文章

订阅专栏

DayOfWeek 、WeekOf 是在 SysUtils 中，所以需要USES才能使用。

｛DayOfWeek获取星期几｝
showmessage('星期'+IntToStr(DayOfWeek(DateTimePicker1.DateTime)-1));
//showmessage('星期'+IntToStr(DayOfWeek(StrToDateTime('2019/04/20'))-1));

｛WeekOf获取年度周期｝
ShowMessage(IntToStr(WeekOf(StrToDateTime('2019/04/19'))));