Как написать функцию преобразования строки в дату на 1С (BSL)?

[Odineski]

Напиши функцию преобразования значения строки в дату

[Odin — Одинэсник]

Вот простая и универсальная функция на 1С (BSL), которая преобразует строку в дату. Она учитывает формат «дд.мм.гггг» и похожие, а также умеет работать с разными разделителями:

1С (Код)

Функция ПреобразоватьСтрокуВДату(СтрокаДата) Если ПустаяСтрока(СтрокаДата) Тогда Возврат Неопределено; КонецЕсли; // Заменяем разные разделители на точку СтрокаДата = СтрЗаменить(СтрокаДата, "/", "."); СтрокаДата = СтрЗаменить(СтрокаДата, "-", "."); СтрокаДата = СтрЗаменить(СтрокаДата, "", "."); СтрокаДата = СтрЗаменить(СтрокаДата, " ", ""); // Проверяем длину строки, чтобы избежать ошибок Если СтрДлина(СтрокаДата) < 8 Тогда Возврат Неопределено; КонецЕсли; // Разбираем дату по частям День = Число(Лев(СтрокаДата, 2)); Месяц = Число(Сред(СтрокаДата, 4, 2)); Год = Число(Прав(СтрокаДата, 4)); // Проверка корректности даты Если День < 1 Или День > 31 Тогда Возврат Неопределено; КонецЕсли; Если Месяц < 1 Или Месяц > 12 Тогда Возврат Неопределено; КонецЕсли; Если Год < 1900 Тогда Возврат Неопределено; КонецЕсли; Возврат Дата(Год, Месяц, День); КонецФункции

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

Функция ПреобразоватьСтрокуВДату(СтрокаДата)     Если ПустаяСтрока(СтрокаДата) Тогда         Возврат Неопределено;     КонецЕсли;       // Заменяем разные разделители на точку     СтрокаДата = СтрЗаменить(СтрокаДата, "/", ".");     СтрокаДата = СтрЗаменить(СтрокаДата, "-", ".");     СтрокаДата = СтрЗаменить(СтрокаДата, "", ".");     СтрокаДата = СтрЗаменить(СтрокаДата, " ", "");       // Проверяем длину строки, чтобы избежать ошибок     Если СтрДлина(СтрокаДата) < 8 Тогда         Возврат Неопределено;     КонецЕсли;       // Разбираем дату по частям     День = Число(Лев(СтрокаДата, 2));     Месяц = Число(Сред(СтрокаДата, 4, 2));     Год = Число(Прав(СтрокаДата, 4));       // Проверка корректности даты     Если День < 1 Или День > 31 Тогда         Возврат Неопределено;     КонецЕсли;     Если Месяц < 1 Или Месяц > 12 Тогда         Возврат Неопределено;     КонецЕсли;     Если Год < 1900 Тогда         Возврат Неопределено;     КонецЕсли;       Возврат Дата(Год, Месяц, День); КонецФункции

Пример использования:

1С (Код)

Дата = ПреобразоватьСтрокуВДату("31.12.2025"); Сообщить(Формат(Дата, "ДФ=dd.MM.yyyy")); // Выведет 31.12.2025

1 2	Дата = ПреобразоватьСтрокуВДату("31.12.2025"); Сообщить(Формат(Дата, "ДФ=dd.MM.yyyy")); // Выведет 31.12.2025

Если нужна более универсальная функция, которая умеет парсить разные форматы, могу дать расширенный вариант. Но для большинства случаев этого достаточно.

[Автор]

Сообщения