Страницы: 1
RSS
Извлечение даты из текстовой строки
 
Добрый день уважаемые форумчане!

В очередной раз требуется Ваша помощь.
Есть дата в ячейке А1 в формате Заказ поставщику № CO-257 от 25 ноября 2016 г.

Как можно из данной текстовой строки извлечь дату ? чтобы получить дату в формате 25.11.16

Заранее спасибо
Изменено: pinguindell - 01.02.2017 16:52:28
 
Всегда записи такого формата? Вам сейчас предложат формулу, а Вы выложите туз из рукава... Примеры нужно показывать в файле, разные возможные форматы записи.
 
vikttur,да, извините, файл прикрепил
 
UDF
Код
Function iDate(cell As String) As Date
Dim Temp As String
  Temp = Split(Split(cell, "от ")(1), " г.")(0)
  iDate = CDate(Temp)
End Function
Выбрать формат ячеек 14.03.01
 
Kuzmich,респект ! выручили так выручили ! Спасибо
 
Вроде формулами получилось сделать
 
Добрый вечер.
Изменено: Михаил Лебедев - 01.02.2017 18:36:45 (Покороче формула)
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
 
=--(ПСТР(A2;ПОИСК("от ";A2)+3;2)&ПОДСТАВИТЬ(ЛЕВБ(СЖПРОБЕЛЫ(ПРАВБ(ПОДСТАВИТЬ(A2;" ";ПОВТОР(" ";50));150));3);"ая";"ай")&ЛЕВБ(ПРАВБ(A2;8);5))
 
И от меня
Код
=DATEVALUE(SUBSTITUTE(LEFT(MID(A2;FIND("от ";A2)+3;7);FIND(" ";MID(A2;FIND("от ";A2)+3;7))+3)&MID(RIGHT(A2;8);1;5);"ая";"ай"))
Изменено: БМВ - 02.02.2017 00:52:13
По вопросам из тем форума, личку не читаю.
 
Удалим из формулы лишнее:
=--(ПОДСТАВИТЬ(ПСТР(A1;ПОИСК("от ";A1)+3;6);"ая";"ай")&ЛЕВБ(ПРАВБ(A1;8);5))
 
vikttur
Вы сова :-) браво.  Хотел утром пересмотреть свою идею, а просыпаюсь, уже все , опоздал.

Так как в русских формулах слабо ориентируюсь, иногда бреду за справкой. Сегодня как раз наткнулся на шедевр машинного перевода от MS по ЛЕВСИМВ
 
Изменено: БМВ - 02.02.2017 08:02:20
По вопросам из тем форума, личку не читаю.
Страницы: 1
Наверх