Дата VBA возвращается 01.01.1900 - PullRequest
3 голосов
/ 02 июня 2019

Я пытаюсь установить значение ячейки на сегодняшнюю дату.Для этого я использую функцию 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 работает правильно, но значение ячейки неверно.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...