¿Por qué la fecha devuelve "31-12-1899" cuando se le pasa 1?

Estoy usando Windows 10 OS Excel 13, así que en el siguiente código1 debería volver1/1/1900 Correcto ? a continuación no se por qué.

Enesta pregunta OP aprobada2016 y obtuve el mismo resultado que obtuve, así que si hay algún error, ¿por qué obtuve el mismo resultado que OP cuando pasé?2016 ?

Sub ndat()

Dim dt As Date
dt = 2016
Debug.Print "dt is " & dt

End Sub

Respuestas a la pregunta(2)

Su respuesta a la pregunta