如何自动在listview列标题中添加日期

Question

我在表格中有月份和列表视图控件

如果我选择月份，列表视图会在列标题中显示日期。

例如

如果我选择Month 02/2009

然后ListView应该显示像这样

01, 02, 03 .... 31 (List View Column Header)

怎么做？

Answer 1

您可以使用DateDiff()和DateAdd()的组合获取指定日期的当月天数。

Days = Datediff("d",  YourDate, DateAdd("m", 1, YourDate))

这可以解决您的数据与1个月之间的天数差异。

然后，可以在标准For / Next循环中使用此值，以便为列表控件添加列。