Страницы: 1
RSS
Преобразовать дату из ДД.ММ.ГГГГ в ГГГГ.ММ.ДД
 
Здравствуйте.
Есть дата вида 31.08.2020. Из неё нужно получить дату вида 2020.08.31. Какой формулой это можно сделать?
 
Цитата
Халк написал:
Есть дата вида 31.08.2020
так дата или текст? Совершенно разные подходы...
Без вашего примера - гадать бесполезно.
 
здравствуйте
в лоб =ТЕКСТ(A1*1;"гггг.ММ.дд")
 
Настя_Nastya, Большое спасибо. Завтра утром только смогу посмотреть.
 
транспонировать можно так:
Код
=ТРАНСП(ПСТР(ТЕКСТ(A1;"ДД.ММ.ГГГГ");СТОЛБЕЦ(A:L);1))
см. вложение
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
Настя_Nastya, отходил на перекур, самому такая же мысль пришла :)
=ТЕКСТ(--A1;"гггг.ММ.дд")
Просто потом оказывается, то у ТС дата в типа такого: "Начато 31.08.2020" - не люблю без конкретного примера.

Ігор Гончаренко,  :D
Изменено: Михаил Витальевич С. - 23.09.2020 22:08:42
 
Цитата
Михаил Витальевич С. написал:
не люблю без конкретного примера.
и особенно когда транспонировать нужно не в смысле транспонировать, а просто преобразовать к другому виду
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
Цитата
Михаил Витальевич С. написал:
гггг.ММ.дд
А можно поинтересоваттся, почему в этом формате ММ пишется большими буквами?
 
Халк, потому, что строчными будут минуты.
 
Код
Просто потом оказывается, то у ТС дата в типа такого: "Начато 31.08.2020"

UDF
Код
Function iDate(cell$)
 With CreateObject("VBScript.RegExp")
     .Global = True
     .Pattern = "(\d{1,2})\.(\d{1,2})\.(\d{2,4})"
     If .Test(cell) Then
       iDate = .Replace(cell, "$3.$2.$1.")
     Else
       iDate = ""
     End If
 End With
End Function
Страницы: 1
Наверх