日历 - 定制

Question

A遇到了这个非常有用的custom made calendar。其中一条评论是：＆＃34;太棒了！有用的工具!!!＆＃34;

我修改了将选中的日期保存在日期变量中，因此我在使用它时不必从文本中重新解释日期。在模块中，添加了：Private dPickedDate as Date。在每天命令按钮更改为：

dPickedDate = DateSerial(
    Val(Format(CommandButton45.Caption, "YYYY")), _
    Val(Format(CommandButton45.Caption, "MM")), _
    CommandButton1.Caption) 
TextBox1.Text = Format(dPickedDate, "DD-MMM-YYYY")

我的问题：

我不知道在哪里/如何将＆＃34;私人dPickedDate包含为日期＆＃34;尽管我做了各种尝试，但我无法让它发挥作用......

Answer 1

很遗憾，我现在无法下载用户表单来检查代码。但正如我理解评论，你应该写

Private dPickedDate as Date

位于任何函数之外的UserForm1模块的顶部。