vba - VBA 日期返回 1/1/1900

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
End Sub

基本上，输出是：

字符串
6/1/2019 12/31/1899
6/1/2019
6/1/2019

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

标签： vba