Преобразовать в дату - Microsoft Office Excel

Iskin · 14.04.2009, 07:36

Здравствуйте!
У меня есть данные с подобным текстом 10104090/030808/П000085. Количество знаков и «/» всегда неизменно. Подскажите пожалуйста функцию или модуль, который бы из данного текста выводил в ячейку = 03.07.08, дабы я потом смог отфильтровать именно по дате возрастания.

EducatedFool · 14.04.2009, 07:54

Вставьте этот код в стандартный модуль:

Код:

Function МояДата(txt) As Date
    res = Split(txt, "/")(1)
    If Len(res) = 6 Then МояДата = Mid(res, 1, 2) & "." & Mid(res, 3, 2) & "." & Mid(res, 5, 2)
End Function

На рабочем листе используйте формулы типа =Моядата(A3)

Iskin · 14.04.2009, 07:57

Как всегда, спасибо большое!

14.04.2009, 07:36	#1
Iskin Форумчанин Регистрация: 22.09.2008 Сообщений: 308	Преобразовать в дату Здравствуйте! У меня есть данные с подобным текстом 10104090/030808/П000085. Количество знаков и «/» всегда неизменно. Подскажите пожалуйста функцию или модуль, который бы из данного текста выводил в ячейку = 03.07.08, дабы я потом смог отфильтровать именно по дате возрастания. Думайте глобально - действуйте локально!

14.04.2009, 07:54	#2
EducatedFool Программист VBA СуперМодератор Регистрация: 13.07.2008 Сообщений: 6,856	Вставьте этот код в стандартный модуль: Код: `Function МояДата(txt) As Date res = Split(txt, "/")(1) If Len(res) = 6 Then МояДата = Mid(res, 1, 2) & "." & Mid(res, 3, 2) & "." & Mid(res, 5, 2) End Function` На рабочем листе используйте формулы типа =Моядата(A3) __Полезные надстройки для Excel. Парсинг сайтов и файлов. Макросы любой сложности на заказ. Мониторинг цен конкурентов

14.04.2009, 07:57	#3
Iskin Форумчанин Регистрация: 22.09.2008 Сообщений: 308	Как всегда, спасибо большое! Думайте глобально - действуйте локально!

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Преобразовать в дату	Marvel	Microsoft Office Excel	21	22.01.2009 06:42
Как преобразовать типы	NeiL	Общие вопросы C/C++	1	31.05.2008 14:43
Преобразовать форму в ссылку	Pekc	HTML и CSS	1	06.12.2007 20:10
Как вычислить дату?	Askat	Общие вопросы Delphi	4	21.08.2007 10:27
ПРЕОБРАЗОВАТЬ	malevich	Общие вопросы Delphi	1	07.12.2006 21:08