Страницы: 1
RSS
Преобразовать дату в формат ммддггг и разделить слешем (мм/дд/гггг)
 
Здравствуйте!

Есть код:
               
Код
With GetQueryRange("http://")
       cell.Offset(, 1) = FindAndInsert(tmpSheet, "Date:", 0, 1)
End With

который выполняет функцию поиска во временной вкладке tmpSheet дату права от ячейки с текстом "Date:", копирует дату и вставляет в основной лист.
В столбец "B" вставляется скопированная дата из tmpSheet общего формата в виде 160119, а на этот столбец уже применен формат ячеек в виде даты 19.01.16. На выходе получаем 12.05.2338.  :sceptic:
Проблема - книга запаролена, поменять формат ячеек не представляется возможным.
Поиск решения - как переделать код выше, чтобы он перед вставкой в ячейку преобразовал копируемую дату в формат 01/19/2016?
 
Проверьте:
cell.Offset(, 1) = Format(FindAndInsert(tmpSheet, "Date:", 0, 1),"dd/mm/yy")
 
На выходе получается такой формат 12.05.1938
 
Догадка: функция FindAndInsert предоставляет Вам не дату, а, например, текстовую запись, неправильное число...

P.S. Точно, не досмотрел
Цитата
В столбец "B" вставляется скопированная дата из tmpSheet общего формата в виде 160119
А это на дату никак не похоже. Вернее, число 160119 - это дата 22.05.2338

Используйте DateSerial(Year(Mid()),Month(Mid()),Day(Mid()))
где Mid() - части значения, отвечающие за год, месяц, день
Страницы: 1
Наверх