[RESOLVED] Date format

[AccessShell]

I'm reading a date from an excel spreadsheet. The format in the spreadsheet is "mm/dd/yyyy". When I visually look at all the dates, in the selected column, I see all 10 characters.


However, when I look at the date, in the program .Range("A" & i).value, I see 8 or 9 characters, depending on the date. For example, 01/01/2020 in the spreadsheet looks like 1/1/2020 in the program. 01/10/2020 looks like 1/10/2020, etc. I have the date in the program as "Dim dteDate As Date".


I have tried to reformat the date as

 dteDate = .Range("A" & i).Value
            dteDate = Format(Mid(dteDate, Len(dteDate) - 3), "yyyy")

and I get an error msg Run-time error '13', Type mismatch


I need to get just the year from the spreadsheet in "yyyy' format for further evaluation.


Any help would be appreciated.


Thanks

[Arnoutdv]

Dim dteDate As Date
Dim lYear As Long

dteDate = .Range("A" & i).Value
lYear = Year(dteDate)

[AccessShell]

Wow, I never expected it to be just 2 simple lines of code. I started to parse the date, one char at a time until I got to the second "/".

Thank you Arnoutdv.

[Arnoutdv]

I assume you viewed the content of dteDate by doing debug.print dteDate, but this a conversion to the local datetime format.
If you check the actual value with Debug.Print CDbl(dteDate) then you see the actual stored value.
This floating point value can be use on all date conversion and formatting routines.