А нет надписи срок действия истек?
А, ну да, забыл.
Код
=ЕСЛИ(ЕОШИБКА(ПОИСК("??.??.????";B2));"";ЕСЛИ(РАЗНДАТ(ПСТР(B2;ПОИСК("??.??.????";B2);10);СЕГОДНЯ();"y")>4;"Срок действия истек "&ТЕКСТ(ДАТАМЕС(ПСТР(B2;ПОИСК("??.??.????";B2);10);60);"ДД.ММ.ГГГ");""))
Нужно подключить надстройку Пакет анализа
или без надстройки Код
=ЕСЛИ(ЕОШИБКА(ПОИСК("??.??.????";B2));"";ЕСЛИ(РАЗНДАТ(ПСТР(B2;ПОИСК("??.??.????";B2);10);СЕГОДНЯ();"y")>4;"Срок действия истек "&ТЕКСТ(--ПСТР(B2;ПОИСК("??.??.????";B2);10);"ДД.ММ.")&(ГОД(--ПСТР(B2;ПОИСК("??.??.????";B2);10))+5);""))