Sub date ()
   Dim todayDate As Date'Today's Date
   Dim todayDateMonth As Date'Today's Date (Monday)
   todayDate = Date
   todayDateMonth = Month (todayDate)
End Sub

If i write the code as above,
The variable todayDate stores data as 2020/11/20,
The variable todayDateMonth contains 1900/01/10, which is completely different from the expected value "11".

I even investigated that such a value would be obtained if the serial type value was not assigned.
Then 2020/11/20 I don't know what it is,
After all, it didn't fall into my mind.

Can anyone please teach me?