获得一年中的一周

Question

Delphi Xe, Win 7, System TimeZone UTC+4:0, 系统一周的第一天-星期一，时间与time.windows.com同步

在 Delphi Win32 标准组件的调色板中有一个组件 MonthCalendar，它的属性 WeekNubers=true（显示周数），date=now，第一天 - 星期一。

在 19 号（今天）-第 43 周显示。

我通过 dateutils.WeekOfTheYear(now) 请求编号 = 返回 42。

来源 (0.5 Mb) http://www.sendspace.com/file/yuz6ko

从组件 MonthCalendar 的初始代码来看 - 一切都是真的（即使不公开一周的第一天，它也会从系统参数中获取价值）。

在查询 WeekOfTheYear 中被告知，所有这些都被认为也应用了标准 ISO，但数字不一致:(

无论如何我都不会明白，一周会在哪里消失 - 如果看日历，应该是 43 周，如果考虑，那是 53 周和去年的第一个问题......

顺便说一句，2011 年 1 月 1 日的 WeekOfTheYear 也返回 52，尽管应该返回 1...

为什么要区分，哪里是正确的？

Answer 1

两个结果都是正确的，区别在于DateUtils.WeekOfTheYear函数使用ISO 8601标准定义一周。 That is, a week is considered to start on a Monday and end on a Sunday.

查看此explanation，了解 ISO 8601 格式的周数。

如果 1 月 1 日是星期一、星期二、星期三或星期四，则它在 第 01 周。如果 1 月 1 日是星期五、星期六或星期日，则它在 上一年的第 52 周或第 53 周（没有第 00 周）。 12 月 28 日 总是在一年的最后一周。

DateUtils.WeekOfTheYear 函数的 Embarcadero 在线帮助说

....如果一年中的第一个日历日是星期五、星期六或 星期日，然后是日历的前三天、两天或一天 year，WeekOfTheYear 返回上一年的最后一周。 同样，如果一年中的最后一个日历日是星期一、星期二、 或星期三，然后是最后一天、两天或三天 日历年，WeekOfTheYear 返回 1（下一个的第一周 日历年）。

因此，由于本周 01-01-2011 是星期六，因此被认为是上一年的第 52 周。

这也解释了为什么今天（2011 年 19 月 10 日）返回的周数是 42 而不是 43。

Answer 2

首先，我发现TMonthCalendar 组件中的周数与DateUtils.WeekOfTheYear() 返回的周数没有区别。 （星期一是我系统上一周的第一天。）都显示当前一周的 42 和 2011-01-01 的一周的 52（不是 53）。 （2010-01-01 是 53，所以也许你只是把它弄混了。）

现在，至于为什么是52或53，而不是1，嗯，根据definition of the first week by ISO：

第一周是一年中第一个星期四所在的那一周。

所以 2011 年的第 1 周从 2011-01-03 开始，前一周属于上一个 ISO 年份。

Answer 3

TMonthCalendar 可以把当年的最后一周当做下一年的第一周，WeekOfTheYear 函数不做，所以有区别。

例如根据TMonthCalendar，1 Jan 2012同时属于2011年最后一周和2012年第一周； 2 Jan 2012 是 2012 年第二周的第一天。
根据WeekOfTheYear函数，1 Jan 2012只属于2011年最后一周； 2 Jan 2012 是 2012 年第一周的第一天。

星期一是我一周的第一天。