日期对象的set属性出现VBA编译错误

我对VBA代码相当陌生，当我试图在我创建的类中运行此代码时，遇到了编译错误

Private pWorkDate As Date

Public Property Set WorkDate(value As Date)
Set pWorkDate = value
End Property

Public Property Get WorkDate() As Date
Set WorkDate = pWorkDate
End Property

这是我收到的错误消息：

同一属性的属性过程定义不一致，或者属性过程具有可选参数、ParamArray或无效的Set final参数

---

请原谅我的无知，但我一直在四处搜索，似乎找不到我做错了什么。

它不喜欢您尝试使用对象引用的

set

，类型为

Date

的变量永远不会是对象引用（它是基本类型（如

integer

），而不是对象类型（如您的类））

更改为

Let

&不使用

Set

：

Public Property Let WorkDate(value As Date)
   pWorkDate = value
End Property

Public Property Get WorkDate() As Date
   WorkDate = pWorkDate
End Property

---

谢谢，那真让我烦透了。我看到的很多地方都把日期当作对象，这就是为什么我认为我需要一套。谢谢你的帮助！