Почему дата возвращает «31-12-1899», когда ей передается 1?

Я использую Windows 10 OS Excel 13, поэтому в приведенном ниже коде1 должен вернуться1/1/1900 право ? ниже это не почему.

Наэтот вопрос ОП пройден2016 и получил тот же результат, который я получил, поэтому, если есть какая-то ошибка, почему я получаю такой же результат, как OP, когда я прошел2016 ?

Sub ndat()

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

End Sub