Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
05 июл 2022, 13:33

Работа с тз

Автор Luffy, 20 окт 2017, 10:34

0 Пользователей и 1 гость просматривают эту тему.

Luffy

Даны две таблицы значений, содержащих временные отрезки:
Необходимо написать программу, которая В Таблицу3 добавит отрезки, которые являются пересечением временных отрезков Таблицы1 и Таблицы2.
Программа должна работать с любым набором данных в таблицах 1 и 2.

Таблица1 = Новый ТаблицаЗначений;
Таблица1.Колонки.Добавить("ДатаНачала");
Таблица1.Колонки.Добавить("ДатаОкончания");
НоваяСтрока = Таблица1.Добавить();
НоваяСтрока.ДатаНачала = Дата("01.08.2017 09:00:00");
НоваяСтрока.ДатаОкончания = Дата("01.08.2017 10:00:00");
НоваяСтрока = Таблица1.Добавить();
НоваяСтрока.ДатаНачала = Дата("01.08.2017 12:00:00");
НоваяСтрока.ДатаОкончания = Дата("01.08.2017 15:00:00");
НоваяСтрока = Таблица1.Добавить();
НоваяСтрока.ДатаНачала = Дата("01.08.2017 17:00:00");
НоваяСтрока.ДатаОкончания = Дата("01.08.2017 20:00:00");

Таблица2 = Новый ТаблицаЗначений;
Таблица2.Колонки.Добавить("ДатаНачала");
Таблица2.Колонки.Добавить("ДатаОкончания");
НоваяСтрока = Таблица2.Добавить();
НоваяСтрока.ДатаНачала = Дата("01.08.2017 08:00:00");
НоваяСтрока.ДатаОкончания = Дата("01.08.2017 11:00:00");
НоваяСтрока = Таблица2.Добавить();
НоваяСтрока.ДатаНачала = Дата("01.08.2017 12:00:00");
НоваяСтрока.ДатаОкончания = Дата("01.08.2017 13:00:00");
НоваяСтрока = Таблица2.Добавить();
НоваяСтрока.ДатаНачала = Дата("01.08.2017 14:00:00");
НоваяСтрока.ДатаОкончания = Дата("01.08.2017 19:00:00");

Таблица3 = Новый ТаблицаЗначений;
Таблица3.Колонки.Добавить("ДатаНачала");
Таблица3.Колонки.Добавить("ДатаОкончания");

Теги:

Похожие темы (5)

Рейтинг@Mail.ru Rambler's Top100

Поиск