let
Источник = {"М22092017"},
#"Преобразовано в таблицу" = Table.FromList(Источник, Splitter.SplitByNothing(), null, null, ExtraValues.Error),
#"Вставленные последние символы" = Table.AddColumn(#"Преобразовано в таблицу", "Последние символы", each Text.End([Column1], 8), type text),
#"Вставленные первые символы" = Table.AddColumn(#"Вставленные последние символы", "Первые символы", each Text.Start([Последние символы], 2), type text),
#"Переименованные столбцы" = Table.RenameColumns(#"Вставленные первые символы",{{"Первые символы", "День"}}),
#"Вставленный диапазон текста" = Table.AddColumn(#"Переименованные столбцы", "Диапазон текста", each Text.Middle([Последние символы], 2, 2), type text),
#"Переименованные столбцы1" = Table.RenameColumns(#"Вставленный диапазон текста",{{"Диапазон текста", "Месяц"}}),
#"Вставленные последние символы1" = Table.AddColumn(#"Переименованные столбцы1", "Последние символы.1", each Text.End([Последние символы], 4), type text),
#"Переименованные столбцы2" = Table.RenameColumns(#"Вставленные последние символы1",{{"Последние символы.1", "Год"}}),
#"Добавлен пользовательский объект" = Table.AddColumn(#"Переименованные столбцы2", "Дата", each [День]&"-"&[Месяц]&"-"&[Год]),
#"Измененный тип" = Table.TransformColumnTypes(#"Добавлен пользовательский объект",{{"Дата", type date}})
in
#"Измененный тип"
|