Формула отделяющая дату

Дата: Суббота, 19.03.2016, 22:58 | Сообщение № 1

Группа: Проверенные

Ранг: Ветеран

Сообщений: 738

Репутация: 3 ±

Замечаний: 0% ±

Excel 2010, 2013

Всем привет. Есть файл. В нем я отделяю дату. Заметил ошибку. В чем может быть причина.

Код

=--ЛЕВБ(I2;10)

Код

=--ПСТР(I2;ПОИСК("??.??.????";I2);10

К сообщению приложен файл: 190316.xls (25.5 Kb)

Сообщение отредактировал Mark1976 - Суббота, 19.03.2016, 23:04

Дата: Суббота, 19.03.2016, 23:06 | Сообщение № 2

Группа: Авторы

Ранг: Старожил

Сообщений: 1161

Репутация: 103 ±

Замечаний: 0% ±

Excel 2010

Код

=ЛЕВБ(СЖПРОБЕЛЫ(ПЕЧСИМВ(I5));10)

У Вас там какая-то неведомая и невидимая фигня первым символом влезла.
[p.s.]Туплю. Исправил.

Интуитивно понятный код - это когда интуитивно понятно, что это код.

Сообщение отредактировал StoTisteg - Суббота, 19.03.2016, 23:13

gling

Дата: Суббота, 19.03.2016, 23:09 | Сообщение № 3

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2519

Репутация: 674 ±

Замечаний: 0% ±

2010

Здравствуйте. Перед текстом пробел, надо от него избавиться. Попробуйте так

Код

=--ЛЕВБ(СЖПРОБЕЛЫ(I2);10)

ЯД-41001506838083

Дата: Суббота, 19.03.2016, 23:09 | Сообщение № 4

Группа: Пользователи

Ранг: Новичок

Сообщений: 38

Репутация: 8 ±

Замечаний: 0% ±

Excel 2003,2007

Код

=ЛЕВБ(I2;11)

WM :Z116994103939

Дата: Суббота, 19.03.2016, 23:11 | Сообщение № 5

Группа: Проверенные

Ранг: Ветеран

Сообщений: 738

Репутация: 3 ±

Замечаний: 0% ±

Excel 2010, 2013

Всем спасибо.

Дата: Суббота, 19.03.2016, 23:13 | Сообщение № 6

Группа: Проверенные

Ранг: Ветеран

Сообщений: 738

Репутация: 3 ±

Замечаний: 0% ±

Excel 2010, 2013

StoTisteg, вот что формула выдает: 14.12.201

Дата: Суббота, 19.03.2016, 23:15 | Сообщение № 7

Группа: Авторы

Ранг: Старожил

Сообщений: 1161

Репутация: 103 ±

Замечаний: 0% ±

Excel 2010

Да, это я протупил. Исправил уже, теперь работает.

Интуитивно понятный код - это когда интуитивно понятно, что это код.

Дата: Суббота, 19.03.2016, 23:15 | Сообщение № 8

Группа: Проверенные

Ранг: Ветеран

Сообщений: 738

Репутация: 3 ±

Замечаний: 0% ±

Excel 2010, 2013

StoTisteg, теперь все норм.

Дата: Суббота, 19.03.2016, 23:16 | Сообщение № 9

Группа: Пользователи

Ранг: Новичок

Сообщений: 38

Репутация: 8 ±

Замечаний: 0% ±

Excel 2003,2007

число байт(симвлов) строки которое отрезается слева

WM :Z116994103939

Сообщение отредактировал dima_dan2012 - Суббота, 19.03.2016, 23:39

Дата: Суббота, 19.03.2016, 23:16 | Сообщение № 10

Группа: Проверенные

Ранг: Ветеран

Сообщений: 738

Репутация: 3 ±

Замечаний: 0% ±

Excel 2010, 2013

а что означают цифры в конце: 10 и 11?

Дата: Суббота, 19.03.2016, 23:17 | Сообщение № 11

Группа: Авторы

Ранг: Старожил

Сообщений: 1161

Репутация: 103 ±

Замечаний: 0% ±

Excel 2010

Цитата gling, 19.03.2016 в 23:09, в сообщении № 3

Перед текстом пробел

Не факт. Это может быть и неразрывный пробел, а его СЖПРОБЕЛЫ не убивает.

Интуитивно понятный код - это когда интуитивно понятно, что это код.

Сообщение отредактировал StoTisteg - Суббота, 19.03.2016, 23:22

Дата: Суббота, 19.03.2016, 23:21 | Сообщение № 12

Группа: Проверенные

Ранг: Ветеран

Сообщений: 738

Репутация: 3 ±

Замечаний: 0% ±

Excel 2010, 2013

dima_dan2012, а у Вас квадратики после даты.

Дата: Суббота, 19.03.2016, 23:24 | Сообщение № 13

Группа: Проверенные

Ранг: Ветеран

Сообщений: 738

Репутация: 3 ±

Замечаний: 0% ±

Excel 2010, 2013

Есть формулы, которые в фильтре, даты группируют по годам, а некоторые нет. Вот мои группируют, а некоторые, которые здесь разместили нет. Почему?

Дата: Суббота, 19.03.2016, 23:25 | Сообщение № 14

Группа: Авторы

Ранг: Старожил

Сообщений: 1161

Репутация: 103 ±

Замечаний: 0% ±

Excel 2010

Цитата dima_dan2012, 19.03.2016 в 23:09, в сообщении № 4

=ЛЕВБ(I2;11)

Это костыль. Файл формируется отнюдь не ручками и там в начале может быть что угодно и в любом количестве.

Интуитивно понятный код - это когда интуитивно понятно, что это код.

Дата: Суббота, 19.03.2016, 23:37 | Сообщение № 15

Группа: Авторы

Ранг: Старожил

Сообщений: 1161

Репутация: 103 ±

Замечаний: 0% ±

Excel 2010

Цитата Mark1976, 19.03.2016 в 23:24, в сообщении № 13

Есть формулы, которые в фильтре, даты группируют по годам

Марк, но конкретно в этом примере нет никаких фильтров и даты одинаковые. Так что о чём речь, не очень понятно.

Интуитивно понятный код - это когда интуитивно понятно, что это код.

Дата: Суббота, 19.03.2016, 23:44 | Сообщение № 16

Группа: Пользователи

Ранг: Новичок

Сообщений: 38

Репутация: 8 ±

Замечаний: 0% ±

Excel 2003,2007

если что -то есть впереди даты отлично подходит

Код

=--ПСТР(I2;ПОИСК("??.??.????";I2);10

не знаю почему она у автора не работает.

WM :Z116994103939

Дата: Суббота, 19.03.2016, 23:51 | Сообщение № 17

Группа: Проверенные

Ранг: Ветеран

Сообщений: 738

Репутация: 3 ±

Замечаний: 0% ±

Excel 2010, 2013

[sup]dima_dan2012, эта формула отлично работает. Вторая тупанула.

Сообщение отредактировал Mark1976 - Суббота, 19.03.2016, 23:51

Дата: Суббота, 19.03.2016, 23:58 | Сообщение № 18

Группа: Пользователи

Ранг: Новичок

Сообщений: 38

Репутация: 8 ±

Замечаний: 0% ±

Excel 2003,2007

Цитата Mark1976, 19.03.2016 в 23:51, в сообщении № 17

отредактировал

Тогда надо было написать что не работает только

Код

=--ЛЕВБ(I2;10)

WM :Z116994103939

МВТ

Дата: Воскресенье, 20.03.2016, 05:44 | Сообщение № 19

Группа: Проверенные

Ранг: Обитатель

Сообщений: 476

Репутация: 137 ±

Замечаний: 0% ±

Excel 2007

Я бы сделал так: воспринимает даты в любом виде от ДД.ММ.ГГГГ до Д.М.ГГ, главное, чтобы не было текстового обозначения месяца. При отсутствии корректно заданной даты в исходном тексте, возвращает #ЗНАЧ!
[vba]

Код

Function GetDateFromText(text As String)
    Dim obj As Object
    With CreateObject("VBScript.RegExp")
        .Pattern = "(\d{1,2})\.(\d{1,2})\.((?:\d{2})|(?:\d{4}))"
        Set obj = .Execute(text)
        If obj.Count = 0 Then
            GetDateFromText = CVErr("#VAL")
            Exit Function
        End If
        GetDateFromText = DateSerial(Val(obj(0).submatches(2)), Val(obj(0).submatches(1)), Val(obj(0).submatches(0)))
    End With
End Function

[/vba]