VBA日期返回1900年1月1日

Question

我正在尝试将一个单元格值设置为今天的日期。 我正在使用Date函数来这样做。 但是，由于某种原因，该单元格始终显示1/1/1900。 Debug.Print Date打印出正确的日期。我什至尝试创建一个新日期并将其转换为字符串，但是当它传递到单元格值时，它将再次变为错误的日期。

Sub CreateAndLabelNewSheet()
Worksheets.Add
Dim ds As Date
ds = Date
Dim dString As String
dString = ds
Debug.Print "String" & dString
Range("B2").Value = dString
Debug.Print Range("B2").Value
Debug.Print ds
Debug.Print Date

结束子

基本上，输出为：     字符串6/1/2019 1899年12月31日 6/1/2019 2019年6月1日

因此，ds和dString以及Debug.Print Date都可以正常工作，但是单元格值不正确