VB.NET DatetimePicker – 错误的周数

我不明白为什么日历从53转到2而不是53到1

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

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

style = style | MCS_WEEKnumbERS;

它的MSDN条目表明：

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

来自评论：

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

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

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

替代

但ISO8601周年很容易计算：

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

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

Dim cal As Calendar = CultureInfo.CurrentCulture.datetiR_81_11845@eFormat.Calendar
For n As Int32 = 2011 To 2017       '2021
    dt = New datetiR_81_11845@e(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部分的结果：

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

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

参考文献：

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