Excel VBA日期数据类型溢出(#6)错误

Excel VBA日期数据类型溢出(#6)错误,vba,class,date,object,overflow,Vba,Class,Date,Object,Overflow,我最近遇到了一个问题,在尝试检索我创建的类的属性值时,它以一种明显的随机方式出现,即溢出错误(#6)。属性的类型为Date,并且正确设置私有成员没有问题,但是当我尝试获取属性时,它抛出溢出错误。在类定义中使用Me.PropertyName语法调用它,并将该值存储为字符串。代码如下: Private pdFlightDate As Date ... Property Get Item() As String Dim s As String s = Me.Count &

我最近遇到了一个问题,在尝试检索我创建的类的属性值时,它以一种明显的随机方式出现,即溢出错误(#6)。属性的类型为Date,并且正确设置私有成员没有问题,但是当我尝试获取属性时,它抛出溢出错误。在类定义中使用
Me.PropertyName
语法调用它,并将该值存储为字符串。代码如下:

Private pdFlightDate As Date

...

Property Get Item() As String
    Dim s As String
    s = Me.Count & "," & Me.FlightDate & "," & Me.Aircraft.Model & ","

...

Property Let FlightDate(pd As Date)
    pdFlightDate = pd
End Property
Property Get FlightDate() As Date
    FlightDate = pdFlightDate
End Property
如果Office 365在运行Big Sur的Mac上运行,则代码正在运行。数据类型溢出错误在两天前测试时并没有发生,但它今天持续发生,我不知道是什么导致了这个问题


编辑:显示了pdFlightDate的声明

您需要向我们显示您的pdFlightDate声明,因此我摆弄了刚才调用我的调用函数。FlightDate并将其添加到字符串中,Excel崩溃,当我重新打开它时,代码正常工作。所以我不知道是什么让这一切顺利,但我不是在抱怨。