По теме из базы знаний
- Контроль контрагентов : Юридический адрес, Полное наименование, КПП
- Глава 2. Как я написал (собрал с инфостарта) свой парсер сайта 1С Releases
- Как я с отчетом СКД боролся (произвольный макет)!
- Исправление ошибки закрытия месяца "Обнаружены отрицательные остатки по количеству в регистре себестоимости по организации" для 1С:УТ, КА и ERP
- Аудит регистров товародвижения после выполнения операций закрытия месяца для ERP 2.5, KA 2.5, УТ 11.5.
Найденные решения
(1) там ничего сложного нет.
Месяцы = Новый Соответствие;
Месяцы.Вставить("январь","01");
Месяцы.Вставить("февраль","02");
Месяцы.Вставить("март","03");
Месяцы.Вставить("апрель","04");
Месяцы.Вставить("май","05");
Месяцы.Вставить("июнь","06");
Месяцы.Вставить("июль","07");
Месяцы.Вставить("август","08");
Месяцы.Вставить("сентябрь","09");
Месяцы.Вставить("октябрь","10");
Месяцы.Вставить("ноябрь","11");
Месяцы.Вставить("декабрь","12");
Массив = СтрРазделить(ВхДата," ",Ложь);
Если Массив.Количество() = 3 Тогда
Год = Массив[2];
Год = СтрЗаменить(Год,"г","");
Массив[2] = Массив[0];
Массив[0] = Год;
Массив[1] = Месяцы[Массив[1]];
ТипДата = Новый ОписаниеТипов("Дата");
Дата = ТипДата.ПривестиЗначение(СтрСоединить(Массив,""));
Иначе
ВызватьИсключение "Неправильный формат даты";
КонецЕсли;
ПоказатьОстальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
так вам нужна процедура которая распознает текст и вернет Дату (именно Тип: Дата)
причем тут замена одного текста на другой?
аааа, такую строку 15.05.2023 легче всего конвертировать в Дату!!! понятно.
(настоящие прогеры легкими путями не ходят)
причем тут замена одного текста на другой?
аааа, такую строку 15.05.2023 легче всего конвертировать в Дату!!! понятно.
(настоящие прогеры легкими путями не ходят)
(1) там ничего сложного нет.
Месяцы = Новый Соответствие;
Месяцы.Вставить("январь","01");
Месяцы.Вставить("февраль","02");
Месяцы.Вставить("март","03");
Месяцы.Вставить("апрель","04");
Месяцы.Вставить("май","05");
Месяцы.Вставить("июнь","06");
Месяцы.Вставить("июль","07");
Месяцы.Вставить("август","08");
Месяцы.Вставить("сентябрь","09");
Месяцы.Вставить("октябрь","10");
Месяцы.Вставить("ноябрь","11");
Месяцы.Вставить("декабрь","12");
Массив = СтрРазделить(ВхДата," ",Ложь);
Если Массив.Количество() = 3 Тогда
Год = Массив[2];
Год = СтрЗаменить(Год,"г","");
Массив[2] = Массив[0];
Массив[0] = Год;
Массив[1] = Месяцы[Массив[1]];
ТипДата = Новый ОписаниеТипов("Дата");
Дата = ТипДата.ПривестиЗначение(СтрСоединить(Массив,""));
Иначе
ВызватьИсключение "Неправильный формат даты";
КонецЕсли;
Показать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот