Я пытаюсь установить значение ячейки на сегодняшнюю дату.Для этого я использую функцию Date.
Однако по какой-то причине в ячейке всегда отображается 01.01.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
По сути, вывод:
String6 / 1/2019
12/31/1899
6/1/2019
6/1/2019
Итак, оба ds
иdString
, а также Debug.Print Date
работает правильно, но значение ячейки неверно.