Проблема формата даты в Outlook в то же время для автоматизации Excel-Outlook

Question

Я экспортировал сообщения электронной почты, чтобы преуспеть с помощью макроса. Используя функцию Mid, я нашел дату в письме, но она не была отформатирована как дата.

Например Thursday, January 12, 2012 8:30 AM Эта дата является текстовой, а не форматированной. Как мне отформатировать это как дату?

Answer 1

Вам нужно сначала убрать "четверг". А затем используйте CDate. Это должно работать

DateStr = "Thursday, January 12, 2012 8:30 AM"
DateStr = Mid(DateStr, InStr(1, DateStr, ", ") + 1)
DateVal = CDate(DateStr)

Answer 2

Если вам нужно решение для формулы:

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

Thursday, January 12, 2012 8:30 AM

Следующая формула извлечет часть даты и отформатирует ее как дату:

=DATEVALUE(MID(A1,FIND(",",A1)+1,LEN(A1)))

Это покажет 40920 в клетке. Отформатируйте ячейку как «Дата», чтобы отобразить ее в формате «мм / дд / гггг» (или, как вы хотите, отформатировать).

Answer 3

Попробуйте:

Format(DateValue, "dddd, mmmm d, yyyy hh:mm AM/PM")