0 / 0 / 0
Регистрация: 04.01.2014
Сообщений: 71

Перебор дат 1с8

24.08.2015, 08:15. Показов 6208. Ответов 27
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Друзья! Есть задача сделать в табличной части документа колонки с текстом даты(день)/день недели(сокр.). Пример: "24/пн". Ни чего не получается. На форме есть два поля с выбором дат С и ПО (Период).
1C
1
2
3
4
5
6
ДатаН = Формат(ДатаС, "ДЛФ=Д");
ДатаК = Формат(ДатаДо, "ДЛФ=Д");
    Для ТекДата = ДатаН ПО ДатаК Цикл
        ЭлементыФормы.ТЧГрафикаРаботы.Колонки.Дата1.ТекстШапки = ТекДень + "/" + (?????????);
    
    КонецЦикла;
Выдает ошибку о типах данных. Как можно решить такую задачу!
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
24.08.2015, 08:15
Ответы с готовыми решениями:

перебор дат
На форуме искал, не нашел следующую тему как можно составить цикл от даты dt1 до даты dt2 ? DateTime dt1 =...

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

Сравнение двух дат и вывод дат находящихся между ними
Здравствуйте! Тут такое дело, вводятся две определенные ДАТЫ в Edit1 и Edit2 в формате ДД.ММ.ГГГГ, нужно найти все ДАТЫ, которые...

27
340 / 315 / 43
Регистрация: 20.08.2014
Сообщений: 1,242
Записей в блоге: 1
24.08.2015, 23:02
Студворк — интернет-сервис помощи студентам
Denzo, пойми, синтаксис-помощник - это не просто так там сделано, реально помогает очень сильно.
Посмотри методы табзначений, где и как выполняются. Там все расписано, стоит вникнуть раз и проблемы по большей части исчезают.
0
0 / 0 / 0
Регистрация: 04.01.2014
Сообщений: 71
24.08.2015, 23:29  [ТС]
1C
1
2
3
4
5
6
7
    КолДней = (ДатаДо-ДатаС)/86400;
    Для  ТекДень = 0 ПО КолДней Цикл
        ТекКолонка = Формат((ДатаС + 86400 * ТекДень), "ДФ=dd") + "/" + Формат((ДатаС + 86400 * ТекДень), "ДФ=ddd");
        Сообщить(ТекКолонка);
        НоваяКолонка = ЭлементыФормы.ТЧГрафикаРаботы.Колонки.Добавить("Колонка"+ТекДень);
        //НоваяКолонка.ТекстШапки = Формат((НачалоДня(ДатаС) + 86400 * ТекДень), "ДФ=dd") + "/" + Формат((НачалоДня(ДатаС) + 86400 * ТекДень), "ДФ=ddd");
            КонецЦикла;
Вот так практически работает, только мне не удается ТекКолонка засунуть в текст шапки. Ругается на неправильный параметр 1 Добавить

Добавлено через 1 минуту
1C
1
2
3
НоваяКолонка = ЭлементыФормы.ТЧГрафикаРаботы.Колонки.Добавить("Колонка"+Строка(ТекКолонка));
по причине:
Недопустимое значение параметра (параметр номер '1')
0
340 / 315 / 43
Регистрация: 20.08.2014
Сообщений: 1,242
Записей в блоге: 1
24.08.2015, 23:39
Denzo, https://infostart.ru/public/296433/ здесь описано, как добавить колонку в управляемой форме.
0
0 / 0 / 0
Регистрация: 04.01.2014
Сообщений: 71
25.08.2015, 08:18  [ТС]
Последний вопрос! Как привязать добавленную колонку к ПеречилениюСсылка
1C
1
2
3
4
5
6
7
8
9
10
11
12
КолДней = (ДатаДо-ДатаС)/86400;
    Для  ТекДень = 0 ПО КолДней Цикл
        ТекКолонка = Формат((ДатаС + 86400 * ТекДень), "ДФ=dd") + "/" + Формат((ДатаС + 86400 * ТекДень), "ДФ=ddd");
        НоваяКолонка = ЭлементыФормы.ТЧГрафикаРаботы.Колонки.Добавить("Дата"+ТекДень,Новый ОписаниеТипов("ПеречислениеСсылка.ОтметкаГрафика"));
        НоваяКолонка.УстановитьЭлементУправления(Тип("ПолеВвод"));
        НоваяКолонка.ЭлементУправления.КнопкаВыбора = Истина;
        НоваяКолонка.ТекстШапки = ТекКолонка;
        НоваяКолонка.Ширина = 8;
        НоваяКолонка.Доступность = Истина;
        НоваяКолонка.Имя = "Дата"+ТекДень;
        НоваяКолонка.Данные = "Дата"+ТекДень; 
            КонецЦикла;
0
340 / 315 / 43
Регистрация: 20.08.2014
Сообщений: 1,242
Записей в блоге: 1
25.08.2015, 08:23
Denzo, путькданным и на форме оно должно болтаться.
0
0 / 0 / 0
Регистрация: 04.01.2014
Сообщений: 71
25.08.2015, 09:10  [ТС]
не понятно?

Добавлено через 1 минуту
понял

Добавлено через 40 минут
Не невыодит!
0
340 / 315 / 43
Регистрация: 20.08.2014
Сообщений: 1,242
Записей в блоге: 1
25.08.2015, 09:19
Denzo, я понимаю, что жаловаться здесь на то, что оно не работает клёво и всё такое.
Документация, отладчик в руки. Без этого программить невозможно и если не понимать, как этим пользоваться, то жалобы и дальше будут сыпаться.

Опять же, чтобы понять, что и куда - нужна конфигурация, её нет.
0
0 / 0 / 0
Регистрация: 04.01.2014
Сообщений: 71
26.08.2015, 22:05  [ТС]
Не могу удалить ненужные колонки и все.
Вроде читаешь вот так должно быть, а на деле не получается.
1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Процедура КоманднаяПанель1ИзменитьКолонки(Кнопка)
        
        КолонкиТЧ=Новый Массив;
        Для Каждого ТекКолонка Из ЭлементыФормы.ТЧГрафикаРаботы.Колонки Цикл
            КолонкиТЧ.Добавить(ТекКолонка.Имя);
            //Сообщить(ТекКолонка.Имя);
        КонецЦикла;
        ИмяКолонки = КолонкиТЧ.Найти("Сотрудник");
        КолонкиТЧ.Удалить(ИмяКолонки);
        ИмяКолонки = КолонкиТЧ.Найти("НомерСтроки");
        КолонкиТЧ.Удалить(ИмяКолонки);
        КолВоКолонок=КолонкиТЧ.Количество();
        
        Для К=0 По КолВоКолонок-1 Цикл
            Сообщить(К);
            ЭлементыФормы.ТЧГрафикаРаботы.Колонки.Удалить(КолонкиТЧ.Найти("Дата"+К));
 
        КонецЦикла;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
26.08.2015, 22:05

Поиск дат в периоде дат (целиком или частично)
Добрый день! У Меня есть проблема, не могу подобрать формулу по поиску определенного периода даты в другом периоде дат. Есть две...

Полный перебор и сокращенный перебор, путем исключения одного цикла
1) Разработать на основе метода полного перебора программу razmen1 для решения задачи о способах размена купюры достоинством 100 условных...

Есть ли в VBA функция, позволяющая определить пересечение одного диапазона дат с другим диапазоном дат?
Привет Все! Задача такова: имеем 1 диапазон даты, например, 01.10.10-30.10.10 имеем 2 диапазон даты, например, 15.09.10-15.10.10 ...

Когда пытась расчитать формулой разницу двух дат (формат дат) то получаю !ЗНАЧ сообщение об ошибке
hi all! Почему -то в excel когда пытась расчитать формулой разницу двух дат (формат дат) то получаю !ЗНАЧ сообщение об ошибке....

Пересечение интервалов дат в Excel. Вывод дат пересечения интервалов
Добрый день. Помогите пожалуйста. Мне надо найти совпадения в периодах работы одного и того же человека на разных предприятиях. Если он...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
28
Ответ Создать тему
Опции темы

Новые блоги и статьи
Был там один разговор по поводу свободы в материальном мире.
kumehtar 19.08.2026
Суть: рассматривается живое существо, оказавшееся внутри довольно странной системы (этого мира) и пытающееся обустроить в ней свой кусок пространства. Жизнь действительно предъявляет каждому. . .
Когда логика программы не спасает от человеческих ошибок
Maks 18.08.2026
В последнее время всё чаще и чаще сталкиваюсь с таким явлением, как абсолютная невнимательность (или глупость) пользователей. Проявляется это чаще всего на работе в коллективе. Допустим, человек с. . .
Лето уходит
kumehtar 17.08.2026
Мысли в слух
kumehtar 17.08.2026
Забавно, насколько сейчас стала доступна информация. Например о магии, духовном развитии, медитациях, и других подобных направлениях, ранее зачастую тайных, передаваемых от учителя к ученику. Хотя. . .
Перемещение строк из ТЧ в другой документ с учетом текущего пробега
Maks 17.08.2026
Реализация из решения ниже выполнена на примере нетипового документа "Автозапчасти", с ТЧ "Шины". За основу взят алгоритм отсюда: https:/ / www. cyberforum. ru/ blogs/ 359708/ 10838. html Задача: . . .
Саморегулирующийся социальный контракт для сервера cross-section.
Hrethgir 14.08.2026
С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .
Часы электронные
Uhbif79 12.08.2026
Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .
Часы с будильником на основе класса QLCDNumber
Uhbif79 12.08.2026
Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru