Por que a data retorna "31-12-1899" quando 1 é passada para ela?
Estou usando o Windows 10 OS excel 13, portanto, no código abaixo1
deve retornar1/1/1900
direito ? embaixo não faz o porquê.
Emesta pergunta OP passou2016
e obtive o mesmo resultado, por isso, se houver algum erro, por que obtive o mesmo resultado que o OP quando passei2016
?
Sub ndat()
Dim dt As Date
dt = 2016
Debug.Print "dt is " & dt
End Sub