По теме из базы знаний
- Помощник закрытия месяца
- Прибыль от продаж в УТ и КА без закрытия месяца
- Продажи по номенклатуре с расчетом прибыли без закрытия месяца и без расчета себестоимости - опт и розница - валовая прибыль по номенклатуре и себестоимость без закрытия месяца
- Автоматическое закрытие месяца в 1С:УНФ (закрытие периода)
- Начисление и выплата аванса в 1С:Бухгалтерии в 2024 году | Расчет заработной платы за первую половину месяца с 2023 года
Найденные решения
(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]];
ТипДата = Новый ОписаниеТипов("Дата");
Дата = ТипДата.ПривестиЗначение(СтрСоединить(Массив,""));
Иначе
ВызватьИсключение "Неправильный формат даты";
КонецЕсли;
Показать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот