VB.NET DatetimePicker – 错误的周数

它几乎按预期工作.计算周数的方式,2016年的前3天计为2016年的第一周.

请注意,控件不会执行任何日历或显示相关的操作.它只是改变Windows提供的日历窗口的显示样式.在CP页面上看到的代码就是全部,主要是它设置一个样式标志来告诉Windows添加周数：

style = style | MCS_WEEKNUMBERS;

它的MSDN条目表明：

Week 1 is defined as the first week that contains at least four days.

由于1月1日至3日不是4天,似乎有错误,使用了不同的日历或MSDN已过期.

来自评论：

根据我的理解,错误的是“日期格式”.也许它不是8601

不,它不止于此：ISO8601是一个不同的日历,Windows和NET都没有实现. Wikipedia笔记：

The first week of a year is the week that contains the first Thursday of the year (and,hence,always contains 4 January). ISO week year numbering therefore slightly deviates from the Gregorian for some days close to 1 January.

这是您在日历下拉菜单中看到的内容.

替代

但ISO8601周年很容易计算：

从my answer to a very similar question开始使用GetISOWeekOfYear()的代码.您可以使用它来显示标签中所选日期或DTP旁边某些日期的ISO8601一年中的一周.

打印2011年至2021年的第一周和上周数字：

Dim cal As Calendar = CultureInfo.CurrentCulture.DateTimeFormat.Calendar
For n As Int32 = 2011 To 2017       '2021
    dt = New DateTime(n,12,21)
    Console.WriteLine(" ***** {0} *****",n)
    For j = 0 To 3
        Dim NetWk = cal.GetWeekOfYear(dt,CalendarWeekRule.FirstDay,firstD)
        Console.WriteLine("Invariant Date: {0} ISO #:{1:00}  NET #:{2:00}",dt.ToString("MM/dd/yyyy"),GetISOWeekOfYear(dt),NetWk)
        dt = dt.AddDays(7)
    Next
Next

2015/2016部分的结果：

***** 2015 *****
Invariant Date: 12/21/2015 ISO #:52 NET #:52
Invariant Date: 12/28/2015 ISO #:53 NET #:53
Invariant Date: 01/04/2016 ISO #:01 NET #:02
Invariant Date: 01/11/2016 ISO #:02 NET #:03
***** 2016 *****
Invariant Date: 12/21/2016 ISO #:51 NET #:52
Invariant Date: 12/28/2016 ISO #:52 NET #:53
Invariant Date: 01/04/2017 ISO #:01 NET #:01
Invariant Date: 01/11/2017 ISO #:02 NET #:02

除非您愿意从头开始编写自己的控件或许可可以设置为不同的日历(并且具有ISO8601的定义),否则这可能是您可以做的最好的.

底线：周数没有错.它使用的日历与您期望/想要的不同.

参考文献：

> Get or convert NET GetWeekOfYear() to ISO week
> MSDN：Month Calendar Control Styles
> DateTimePicker in Reference Source