Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Преобразование даты "Wed Feb 07 00:00:00 CET 1998" в формат "07.02.1998"
 
#1
30.11.2018 12:11:48
Добрый день!
Прошу помощи в преобразовании даты в в формате "Wed Feb 07 00:00:00 CET 1998" в формат "07.02.1998".
Спасибо!!
 
 
 
#2
30.11.2018 12:12:40
И пример не покажете?
 
 
 
#3
30.11.2018 12:16:20
Да, конечно, вот пример.
 
 
 
#4
30.11.2018 12:21:23
Формат всегда такой? Месяц вседа 3 буквы?
 
 
 
#5
30.11.2018 12:21:49
Вариант на PQ:
Код
let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    #"Разделить столбец по разделителю" = Table.SplitColumn(Источник, "Исходный вариант", Splitter.SplitTextByDelimiter(" ", QuoteStyle.Csv), {"Исходный вариант.1", "Исходный вариант.2", "Исходный вариант.3", "Исходный вариант.4", "Исходный вариант.5", "Исходный вариант.6"}),
    #"Объединенные столбцы" = Table.CombineColumns(Table.TransformColumnTypes(#"Разделить столбец по разделителю", {{"Исходный вариант.3", type text}, {"Исходный вариант.6", type text}}, "ru-RU"),{"Исходный вариант.3", "Исходный вариант.2", "Исходный вариант.6"},Combiner.CombineTextByDelimiter("-", QuoteStyle.None),"Дата"),
    #"Другие удаленные столбцы" = Table.SelectColumns(#"Объединенные столбцы",{"Дата"}),
    #"Измененный тип1" = Table.TransformColumnTypes(#"Другие удаленные столбцы",{{"Дата", type date}})
in
    #"Измененный тип1"
 
 
 
#6
30.11.2018 12:30:31
Да, всегда формат такой, и всегда три буквы.  

alexleoix, спасибо! К сожалению, пока не получается с помощью присланного макроса добиться нужного результата. Разбираюсь.
 
 
 
#7
30.11.2018 12:31:32
=ДАТА(ПРАВБ(A2;4);ПОИСК(ПСТР(A2;6;2);"kanebarprayunulugepctovec")/2;ПСТР(A2;9;2))
 
 
 
#8
30.11.2018 12:32:36
nat.n, Это не макрос. Это код запроса для Power Query
 
 
 
#9
30.11.2018 12:45:00
vikttur,
"kanebarprayunulugepctovec" - это мощно! Не додумался бы.
Внушает!!!

Взял в копилку
 
 
 
#10
30.11.2018 12:48:47
Спасибо, vikttur! Работает!!!
Спасибо, alexleoix!
 
 
 
#11
30.11.2018 14:33:02
Цитата
alexleoix написал: "kanebarprayunulugepctovec" - это мощно!
Все придумано до нас :)
 
 
 
#12
30.11.2018 15:00:15
Off. Любопытно, что даже такая конструкция интерпретируется как дата текущего года (все региональные настройки):
Код
Sub test()
 ActiveCell = "Feb 07 00:00:00 1998 1234 5678"
End Sub
Владимир
 
 
 
#13
30.11.2018 16:45:51
Цитата
vikttur написал: Все придумано до нас
и до тех кто придумал это до нас :-)
По вопросам из тем форума, личку не читаю.
 
 
 
Страницы: 1
Наверх