Преобразование короткой даты в длинную

Question

Привет, у меня есть следующий код:

dim currentDate as Date
currentDate = Format(wkSheet.Cells(3, i), "[$-F800]dddd, mmmm dd, yyyy")

Ячейки (3, i) - это дата в краткой форме Я пытаюсь преобразовать его в длинную форму, чтобы, например, 1.07.08 стало воскресенье, 1 июля 2018 года. Как это сделать? Приведенный выше код основан на функции «запись макроса».

Answer 1

Формат возвращает текст, а не истинную дату. Изменить формат номера ячейки.

wkSheet.Cells(3, i).NumberFormat = "[$-F800]dddd, mmmm dd, yyyy"

Обратите внимание, что форматы даты не включают ^st , ^nd , ^rd , ^th и т. Д. И предоставленный формат даты вынужденный двузначный день (например, 01, а не 1 ^st )