从VBA用户表单中的DatePicker控件中识别周编号，月份编号，年份

Question

我一直试图通过在任何地方获取代码来使我的用户表单工作。我没有任何VBA经验，所以我的代码是来自不同来源的补丁。

我的用户表单中有一个日期选择器控件，我希望根据从datepicker控件框中选择的日期获取相应的周数，月号和年份，并为每个日期填充相应的文本框< / p>

datepicker and textbox dependencies

Answer 1

要获取周数，请使用以下内容。第三和第四个参数允许您指定一年中的第一天/第一周。

TextBoxWeek.Value =  DatePart("ww", TextBoxDatePicker.Value, vbMonday, vbFirstJan1 )

月：

TextBoxMonth.Value = format(TextBoxDatePicker.value,"mm")

年份:(您也可以使用“yy”来获取速记日期，例如'17'而不是'2017'）

TextBoxYear.Value = format(TextBoxDatePicker.value, "yyyy")