Excel Date system

[tiredofit]

My worksheet contains two dates.

Cell A1 is 21/01/1900
Cell A2 is 11/01/1900

The "Use 1904 data system" box (found under File -> More -> Options -> Advanced) is UNCHECKED.

When I inspect this code in the Locals window:

    Dim DataArray() As Variant
  
    DataArray() = Sheet1.Cells(1, 1).CurrentRegion.Value

why does DataArray(1,1) contain the value:

#20/01/1900#

and DataArray(2,1) contains:

#10/01/1900#

I expected to see:

#21/01/1900#

and

#11/01/1900#

Thanks

 

[RoryA]

It's due to Lotus 123 thinking 1900 was a leap year, so Excel replicated that. VBA on the other hand didn't, so 1 in VBA's date system is 31/12/1899 whereas in Excel it's 1/1/1900. The two sync back up on 1st March 1900.

 

[tiredofit]

It's due to Lotus 123 thinking 1900 was a leap year, so Excel replicated that. VBA on the other hand didn't, so 1 in VBA's date system is 31/12/1899 whereas in Excel it's 1/1/1900. The two sync back up on 1st March 1900.

Thanks.