Overflow (#6) Error When Assigning a Date Data Type

[jaunito]

I have a class that imports date values from a worksheet and then stores them in a class along with a lot of other information. The problem is when I try to move from the private variable holding the date information to the public property, it is giving me an overflow error. I tested this two days ago (the exact same code) and did not get any errors in execution, so I'm quite confused as to what might be causing it.

Property Let FlightDate(pd As Date)
pdFlightDate = pd
End Property
Property Get FlightDate() As Date
FlightDate = pdFlightDate
End Property

When I set (let) the date I don't get a problem, but when I try to return the date I'm getting a problem. I'm working in Office 365 on a Mac trying to make it work on the Mac Platform, but I don't think this is a Mac Related issue.

 

[jaunito]

How about sharing the code for CFlights? And, where do you initialize wsxNavyList?

Some of that gets into proprietary information that I am not at liberty to divulge, I can share the part that calls it:

Property Get Item() As String
    Dim s As String
    s = Me.Count & "-"
    s = s & Me.FlightDate & "-"
    s = s & Me.Aircraft.Model & "-"
    s = s & Me.TailNum & "-"
    s = s & Me.Route & "-"
    s = s & Me.Duration & "-"
    s = s & Me.Remarks & "-"
    Item = s
End Property

This Item property is called as a key of the collection object that contains multiple CFlight objects.

colFlights.Add Item:=Flight, key:=Flight.Item

 

[jaunito]

How about sharing the code for CFlights? And, where do you initialize wsxNavyList?

wsxNavyList is the named worksheet, it is initialized by the Excel application.

 

[StephenCrump]

Based only on code fragments, and without knowing your layout, I'm not sure we can help further.

It sounds like the problem is intermittent (Post #6) and I am guessing that you are accidentally capturing a value greater than 2,958,465 (i.e. 31/12/9999) in wsxNavyList. But the overflow error would show up on setting, rather than getting, the .FlightDate property.

You still haven't told us which line of code produces the error?

 

[jaunito]

If you look at #11 above, that is where the code is causing the overflow error, when I'm adding the date to a string so that I can generate a unique key.

[ICODE]s = s & Me.FlightDate & "-"[/ICODE]

is the actual line that causes the problem. But I understand if you can't help more here. I know that the value going into the pdFlightDate was 6/8/11, so that is why I was so perplexed by the overflow. Not only that but it is going into a string, so it should not cause any issue.

Thanks anyway!