vba - 日期对象的设置属性的VBA编译错误

Question

我对 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 参数

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

Answer 1

它不喜欢您尝试使用setwhich 用于对象引用，类型变量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