База знаний Одина — Одинэсника › Форумы › ODIN — Форум по 1С Предприятию › Как в 1С:Предприятие 8.3 (толстый клиент) создать таблицу с разбивкой по месяцам › Ответ в теме: Как в 1С:Предприятие 8.3 (толстый клиент) создать таблицу с разбивкой по месяцам
Да, в 1С:Предприятие 8.3 (толстый клиент) можно создать таблицу значений с разбивкой по месяцам между двумя датами Дн и Дк. Для этого нужно определить первый месяц как начало месяца от Дн, затем в цикле добавлять по одному месяцу, пока не достигнете Дк, и в каждую строку таблицы записывать дату начала месяца.
Если нужно, можно дополнительно добавить в таблицу колонку с представлением месяца в удобном формате.
Пример реализации этого подхода показан ниже.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
// Исходные даты Дн = '2023-01-15'; // пример начальной даты Дк = '2023-05-10'; // пример конечной даты // Создаем таблицу значений с одним реквизитом "Месяц" ТаблМесяцев = Новый ТаблицаЗначений; ТаблМесяцев.Колонки.Добавить("Месяц", Новый ОписаниеТипов("Дата")); // Начинаем с начала месяца Дн ТекМесяц = НачалоМесяца(Дн); Пока ТекМесяц <= Дк Цикл НоваяСтрока = ТаблМесяцев.Добавить(); НоваяСтрока.Месяц = ТекМесяц; // Переходим к следующему месяцу ТекМесяц = ДобавитьМесяц(ТекМесяц, 1); КонецЦикла; // Теперь ТаблМесяцев содержит строки с датами начала каждого месяца в диапазоне |
Для расширения таблицы и добавления представления месяца используйте следующий код:
|
1 2 3 4 5 6 7 8 9 10 |
Процедура ЗаполнитьТаблицуМесяцев() ТаблМесяцев.Колонки.Добавить("Представление", Новый ОписаниеТипов("Строка")); Пока ТекМесяц <= Дк Цикл НоваяСтрока = ТаблМесяцев.Добавить(); НоваяСтрока.Месяц = ТекМесяц; НоваяСтрока.Представление = Формат(ТекМесяц, "ДФ='ММММ гггг'"); ТекМесяц = ДобавитьМесяц(ТекМесяц, 1); КонецЦикла; КонецПроцедуры |
Таким образом, вы получите таблицу значений с разбивкой по месяцам от Дн до Дк.
База знаний 1С