VBA Почему мой номер переносится обратно - PullRequest
0 голосов
/ 21 марта 2019

Я намереваюсь ввести в таблицу серию чисел, которая является последним числом года моей даты, а также юлианской датой и номером моей даты, если я установил 2/6/2019 как 1001.

Вот мой код:

AddNew.Offset(m, 4).Value = Right(Year(DTPickerActualHarvestDate), 1) & _
Format(DatePart("y", DTPickerActualHarvestDate), "000") & _
DateValue(DTPickerActualHarvestDate.Value) - 42501

Проблема в том, что если я сам введу DateValue(DTPickerActualHarvestDate.Value) - 42501, получится правильный результат, как и первая часть. Но когда я собрал их вместе, последняя часть снова перешла бы с номера на дату. Например, если моя дата 2/6/2019, она должна отображаться с 90371001, а теперь отображается как 90379/27/1902. Как я могу это исправить?

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