Работаем с датами в запросе

Публикация № 68269

Разработка - Практика программирования

Понадобилось в запросе выполнить некоторые операции с датами:
- посчитать дату оплаты в банковских днях;
- собирать строки, в которые должны были входить даты, точнее строковые представления дат в формате "ДФ=dd.MM.yyyy".
Вот что из этого получилось.
Только качественный контент

 «Охрана труда» для 1С:Предприятия 8.2

Пример расчета даты оплаты в банковских днях

Собственно это только формула расчета, смысл которой сводится к преобразованию банковских дней в календарные для конфигурации без производственного календаря. Если в конфигурации есть календарь, то правильнее использовать его, ведь в праздничные дни банк тоже не работает.  «Охрана труда» для 1С:Предприятия 8.2

 

////////////////////////////////////////////////////////////////////////////////
// Расчет даты отлаты при указании периода в банковских днях
ВЫБРАТЬ
ДОБАВИТЬКДАТЕ(НАЧАЛОПЕРИОДА(&ДатаДокумента, НЕДЕЛЯ), ДЕНЬ, ВЫБОР
 КОГДА
(ВЫРАЗИТЬ((ДЕНЬНЕДЕЛИ(&ДатаДокумента) + &БанковскихДней) / 5 КАК ЧИСЛО(15, 0)))
  - (
ДЕНЬНЕДЕЛИ(&ДатаДокумента) + &БанковскихДней) / 5 >= 0
 
ТОГДА (ВЫРАЗИТЬ((ДЕНЬНЕДЕЛИ(&ДатаДокумента) + &БанковскихДней) / 5 КАК ЧИСЛО(15, 0))) - 1
 
ИНАЧЕ ВЫРАЗИТЬ((ДЕНЬНЕДЕЛИ(&ДатаДокумента) + &БанковскихДней) / 5 КАК ЧИСЛО(15, 0))
КОНЕЦ * 7 + (ДЕНЬНЕДЕЛИ(&ДатаДокумента) + &БанковскихДней - ВЫБОР
 КОГДА
(ВЫРАЗИТЬ((ДЕНЬНЕДЕЛИ(&ДатаДокумента) + &БанковскихДней) / 5 КАК ЧИСЛО(15, 0)))
  - (
ДЕНЬНЕДЕЛИ(&ДатаДокумента) + &БанковскихДней) / 5 >= 0
 
ТОГДА (ВЫРАЗИТЬ((ДЕНЬНЕДЕЛИ(&ДатаДокумента) + &БанковскихДней) / 5 КАК ЧИСЛО(15, 0))) - 1
 
ИНАЧЕ ВЫРАЗИТЬ((ДЕНЬНЕДЕЛИ(&ДатаДокумента) + &БанковскихДней) / 5 КАК ЧИСЛО(15, 0))
КОНЕЦ * 5) - 1) КАК Дата

 


 

 

Просто календарик в диапазоне дат до 2739 лет

Это очень быстрый вариант формирования списка дат запросом. Если найдете вариант, который работает быстрее в файловой и в SQL версии 1С:Предприятия 8, то сообщите мне пожалуйста.

 

////////////////////////////////////////////////////////////////////////////////
// Единицы для календаря
ВЫБРАТЬ 0 КАК Цифра ПОМЕСТИТЬ Единицы
ОБЪЕДИНИТЬ ВСЕ ВЫБРАТЬ 1 ОБЪЕДИНИТЬ ВСЕ ВЫБРАТЬ 2 ОБЪЕДИНИТЬ ВСЕ ВЫБРАТЬ 3
ОБЪЕДИНИТЬ ВСЕ ВЫБРАТЬ 4 ОБЪЕДИНИТЬ ВСЕ ВЫБРАТЬ 5 ОБЪЕДИНИТЬ ВСЕ ВЫБРАТЬ 6
ОБЪЕДИНИТЬ ВСЕ ВЫБРАТЬ 7 ОБЪЕДИНИТЬ ВСЕ ВЫБРАТЬ 8 ОБЪЕДИНИТЬ ВСЕ ВЫБРАТЬ 9;
////////////////////////////////////////////////////////////////////////////////
// Десятки для календаря. Диапазон дат 3 месяца
ВЫБРАТЬ Десятки.Цифра * 10 КАК Цифра ПОМЕСТИТЬ Десятки ИЗ Единицы КАК Десятки
ГДЕ Десятки.Цифра * 10 <= РАЗНОСТЬДАТ(&НачалоПериода, &КонецПериода, ДЕНЬ);
////////////////////////////////////////////////////////////////////////////////
// Сотни для календаря. Диапазон дат 2,5 года
ВЫБРАТЬ Сотни.Цифра * 10 КАК Цифра ПОМЕСТИТЬ Сотни ИЗ Десятки КАК Сотни
ГДЕ Сотни.Цифра * 10 <= РАЗНОСТЬДАТ(&НачалоПериода, &КонецПериода, ДЕНЬ);
////////////////////////////////////////////////////////////////////////////////
// Тысячи для календаря. Диапазон дат 27 лет
ВЫБРАТЬ Тысячи.Цифра * 10 КАК Цифра ПОМЕСТИТЬ Тысячи ИЗ Сотни КАК Тысячи
ГДЕ Тысячи.Цифра * 10 <= РАЗНОСТЬДАТ(&НачалоПериода, &КонецПериода, ДЕНЬ);
////////////////////////////////////////////////////////////////////////////////
// Десятки тысяч для календаря. Диапазон дат 273 года
ВЫБРАТЬ ДесяткиТысяч.Цифра * 10 КАК Цифра ПОМЕСТИТЬ ДесяткиТысяч ИЗ Тысячи КАК ДесяткиТысяч
ГДЕ ДесяткиТысяч.Цифра * 10 <= РАЗНОСТЬДАТ(&НачалоПериода, &КонецПериода, ДЕНЬ);
////////////////////////////////////////////////////////////////////////////////
// Сотни тысяч для календаря. Диапазон дат 2739 лет
ВЫБРАТЬ СотниТысяч.Цифра * 10 КАК Цифра ПОМЕСТИТЬ СотниТысяч ИЗ ДесяткиТысяч КАК СотниТысяч
ГДЕ СотниТысяч.Цифра * 10 <= РАЗНОСТЬДАТ(&НачалоПериода, &КонецПериода, ДЕНЬ);
////////////////////////////////////////////////////////////////////////////////
// Полный ряд до 100
ВЫБРАТЬ Десятки.Цифра + Единицы.Цифра КАК Цифра
ПОМЕСТИТЬ ДоСотни ИЗ Десятки КАК Десятки, Единицы КАК Единицы;
////////////////////////////////////////////////////////////////////////////////
// Старшие до 10000
ВЫБРАТЬ Тысячи.Цифра + Сотни.Цифра КАК Цифра
ПОМЕСТИТЬ ДоДесятиТысяч ИЗ Тысячи КАК Тысячи, Сотни КАК Сотни;
////////////////////////////////////////////////////////////////////////////////
// Полный ряд до 10000
ВЫБРАТЬ ДоДесятиТысяч.Цифра + ДоСотни.Цифра КАК Цифра
ПОМЕСТИТЬ ПолныеДесятьТысяч ИЗ ДоДесятиТысяч КАК ДоДесятиТысяч, ДоСотни КАК ДоСотни;
////////////////////////////////////////////////////////////////////////////////
// Старшие до 1000000
ВЫБРАТЬ СотниТысяч.Цифра + ДесяткиТысяч.Цифра КАК Цифра
ПОМЕСТИТЬ ДоМиллиона ИЗ СотниТысяч КАК СотниТысяч, ДесяткиТысяч КАК ДесяткиТысяч;
////////////////////////////////////////////////////////////////////////////////
// Список дат календаря в диапазоне до 2739 лет
ВЫБРАТЬ ДОБАВИТЬКДАТЕ(НАЧАЛОПЕРИОДА(&НачалоПериода, ДЕНЬ), ДЕНЬ, ДоМиллиона.Цифра + ПолныеДесятьТысяч.Цифра) КАК ДатаПериода
ИЗ ДоМиллиона КАК ДоМиллиона, ПолныеДесятьТысяч КАК ПолныеДесятьТысяч
ГДЕ ДоМиллиона.Цифра + ПолныеДесятьТысяч.Цифра <= РАЗНОСТЬДАТ(&НачалоПериода, &КонецПериода, ДЕНЬ)
УПОРЯДОЧИТЬ ПО ДатаПериода;


 

 

Строковое представление дат в диапазоне до 2739 лет

Приведенный ниже пакет запросов формирует список строковых представлений дат за указанный период. Получилось забавно. Может быть ещё кому-нибудь пригодится.

 

////////////////////////////////////////////////////////////////////////////////
// Единицы и их строковое представление для календаря и списка дат
ВЫБРАТЬ 0 КАК Цифра, "0" КАК Образ ПОМЕСТИТЬ Единицы
ОБЪЕДИНИТЬ ВСЕ ВЫБРАТЬ 1, "1" ОБЪЕДИНИТЬ ВСЕ ВЫБРАТЬ 2, "2" ОБЪЕДИНИТЬ ВСЕ ВЫБРАТЬ 3, "3"
ОБЪЕДИНИТЬ ВСЕ ВЫБРАТЬ 4, "4" ОБЪЕДИНИТЬ ВСЕ ВЫБРАТЬ 5, "5" ОБЪЕДИНИТЬ ВСЕ ВЫБРАТЬ 6, "6"
ОБЪЕДИНИТЬ ВСЕ ВЫБРАТЬ 7, "7" ОБЪЕДИНИТЬ ВСЕ ВЫБРАТЬ 8, "8" ОБЪЕДИНИТЬ ВСЕ ВЫБРАТЬ 9, "9";
////////////////////////////////////////////////////////////////////////////////
// Десятки и их строковое представление для календаря
ВЫБРАТЬ Десятки.Цифра * 10 КАК Цифра, Десятки.Образ КАК Образ
ПОМЕСТИТЬ ДесяткиДат ИЗ Единицы КАК Десятки;
////////////////////////////////////////////////////////////////////////////////
// Сотни и их строковое представление для календаря
ВЫБРАТЬ Сотни.Цифра * 10 КАК Цифра, Сотни.Образ КАК Образ
ПОМЕСТИТЬ СотниДат ИЗ ДесяткиДат КАК Сотни;
////////////////////////////////////////////////////////////////////////////////
// Тысячи и их строковое представление для календаря
ВЫБРАТЬ Тысячи.Цифра * 10 КАК Цифра, Тысячи.Образ КАК Образ
ПОМЕСТИТЬ ТысячиДат ИЗ СотниДат КАК Тысячи ГДЕ Тысячи.Цифра * 10 <= ГОД(&КонецПериода);
////////////////////////////////////////////////////////////////////////////////
// Представление дней календаря
ВЫБРАТЬ Десятки.Цифра + Единицы.Цифра КАК ЧислоДиапазона,
 
Десятки.Образ + Единицы.Образ КАК ОбразЧисла ПОМЕСТИТЬ Дни
ИЗ ДесяткиДат КАК Десятки, Единицы КАК Единицы ГДЕ Десятки.Цифра + Единицы.Цифра <= 31;
////////////////////////////////////////////////////////////////////////////////
// Представление месяцев календаря
ВЫБРАТЬ Десятки.Цифра + Единицы.Цифра КАК ЧислоДиапазона,
 
Десятки.Образ + Единицы.Образ КАК ОбразЧисла ПОМЕСТИТЬ Месяцы
ИЗ ДесяткиДат КАК Десятки, Единицы КАК Единицы ГДЕ Десятки.Цифра + Единицы.Цифра <= 12;
////////////////////////////////////////////////////////////////////////////////
// Представление лет календаря
ВЫБРАТЬ Тысячи.Цифра + Сотни.Цифра + Десятки.Цифра + Единицы.Цифра КАК ЧислоДиапазона,
 
Тысячи.Образ + Сотни.Образ + Десятки.Образ + Единицы.Образ КАК ОбразЧисла ПОМЕСТИТЬ Года
ИЗ ТысячиДат КАК Тысячи, СотниДат КАК Сотни, ДесяткиДат КАК Десятки, Единицы КАК Единицы
ГДЕ Тысячи.Цифра + Сотни.Цифра + Десятки.Цифра + Единицы.Цифра МЕЖДУ ГОД(&НачалоПериода)
  И
ГОД(&КонецПериода);
////////////////////////////////////////////////////////////////////////////////
// Тысячи для календаря. Диапазон дат 27 лет
ВЫБРАТЬ Тысячи.Цифра * 10 КАК Цифра ПОМЕСТИТЬ Тысячи ИЗ СотниДат КАК Тысячи
ГДЕ Тысячи.Цифра * 10 <= РАЗНОСТЬДАТ(&НачалоПериода, &КонецПериода, ДЕНЬ);
////////////////////////////////////////////////////////////////////////////////
// Десятки тысяч для календаря. Диапазон дат 273 года
ВЫБРАТЬ ДесяткиТысяч.Цифра * 10 КАК Цифра ПОМЕСТИТЬ ДесяткиТысяч ИЗ Тысячи КАК ДесяткиТысяч
ГДЕ ДесяткиТысяч.Цифра * 10 <= РАЗНОСТЬДАТ(&НачалоПериода, &КонецПериода, ДЕНЬ);
////////////////////////////////////////////////////////////////////////////////
// Сотни тысяч для календаря. Диапазон дат 2739 лет
ВЫБРАТЬ СотниТысяч.Цифра * 10 КАК Цифра ПОМЕСТИТЬ СотниТысяч ИЗ ДесяткиТысяч КАК СотниТысяч
ГДЕ СотниТысяч.Цифра * 10 <= РАЗНОСТЬДАТ(&НачалоПериода, &КонецПериода, ДЕНЬ);
////////////////////////////////////////////////////////////////////////////////
// Полный ряд до 100
ВЫБРАТЬ Десятки.Цифра + Единицы.Цифра КАК Цифра
ПОМЕСТИТЬ ДоСотни ИЗ ДесяткиДат КАК Десятки, Единицы КАК Единицы;
////////////////////////////////////////////////////////////////////////////////
// Старшие до 10000
ВЫБРАТЬ Тысячи.Цифра + Сотни.Цифра КАК Цифра
ПОМЕСТИТЬ ДоДесятиТысяч ИЗ Тысячи КАК Тысячи, СотниДат КАК Сотни;
////////////////////////////////////////////////////////////////////////////////
// Полный ряд до 10000
ВЫБРАТЬ ДоДесятиТысяч.Цифра + ДоСотни.Цифра КАК Цифра
ПОМЕСТИТЬ ПолныеДесятьТысяч ИЗ ДоДесятиТысяч КАК ДоДесятиТысяч, ДоСотни КАК ДоСотни;
////////////////////////////////////////////////////////////////////////////////
// Старшие до 1000000
ВЫБРАТЬ СотниТысяч.Цифра + ДесяткиТысяч.Цифра КАК Цифра
ПОМЕСТИТЬ ДоМиллиона ИЗ СотниТысяч КАК СотниТысяч, ДесяткиТысяч КАК ДесяткиТысяч;
////////////////////////////////////////////////////////////////////////////////
// Список дат в диапазоне до 2739 лет
ВЫБРАТЬ ДОБАВИТЬКДАТЕ(&НачалоПериода, ДЕНЬ, ДоМиллиона.Цифра + ПолныеДесятьТысяч.Цифра) КАК ДатаПериода
ПОМЕСТИТЬ Даты ИЗ ДоМиллиона КАК ДоМиллиона, ПолныеДесятьТысяч КАК ПолныеДесятьТысяч
ГДЕ ДоМиллиона.Цифра + ПолныеДесятьТысяч.Цифра <= РАЗНОСТЬДАТ(&НачалоПериода, &КонецПериода, ДЕНЬ);
////////////////////////////////////////////////////////////////////////////////
// Список со строковыми представлениями дат из списка
ВЫБРАТЬ "Строка: " + Дни.ОбразЧисла + "." + Месяцы.ОбразЧисла + "."
 
+ Года.ОбразЧисла КАК ПредставлениеСтроки ИЗ Даты КАК Даты
ЛЕВОЕ СОЕДИНЕНИЕ Дни КАК Дни ПО (ДЕНЬ(Даты.ДатаПериода) = Дни.ЧислоДиапазона)
ЛЕВОЕ СОЕДИНЕНИЕ Месяцы КАК Месяцы ПО (МЕСЯЦ(Даты.ДатаПериода) = Месяцы.ЧислоДиапазона)
ЛЕВОЕ СОЕДИНЕНИЕ Года КАК Года ПО (ГОД(Даты.ДатаПериода) = Года.ЧислоДиапазона)
УПОРЯДОЧИТЬ ПО Даты.ДатаПериода


 

Ещё о хитрых запросах можно почитать здесь.

Для раскрашивания текстов запросов в статье испрользована Разукрашка.  

Специальные предложения

Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. MoneG2 27 31.03.10 05:30 Сейчас в теме
Решение интересное, но есть более простое ;)
http://www.forum.mista.ru/topic.php?id=388253 (23 пост)
Hany; Serjik78; +2 Ответить
2. a-novoselov 1126 31.03.10 07:34 Сейчас в теме
(0) Да уж, чего-то перемудрил с преобразованием. Намного проще 'цифры строкой' в параметре запросу передать и не мучаться, раз уж "1С Язык запросов, чем-то похожий на SQL" не умеет типы преобразовывать.
3. alexk-is 6498 31.03.10 08:34 Сейчас в теме
4. a-novoselov 1126 31.03.10 10:27 Сейчас в теме
(3) Да так тоже очень изящно, молоток. Просто, как ты сам же любишь говорить, не взрывай мозг, делай проще.
5. RailMen 20.06.10 21:57 Сейчас в теме
не дай бог такое увидеть в чей-то базе
7. Поручик 4489 21.06.10 20:58 Сейчас в теме
(5) Это ещё не самое худшее, что можно увидеть в чьей-то базе.
Не дай бог увидеть в чьей-то базе то, что есть в других некоторых базах, вот где жесть.
6. RailMen 20.06.10 21:58 Сейчас в теме
а само решение интересное
8. AlexO 130 16.07.10 15:53 Сейчас в теме
А что за задачи такие - выбрать даты? Откуда, что за даты?
9. CheBurator 3453 01.09.10 01:15 Сейчас в теме
Что есть "банковский день"?
11. CheBurator 3453 01.09.10 05:30 Сейчас в теме
(10) если говорить прямо: лабуда. что значит "обычно банковский день продолжается с 10 до 16 часов.", а необычно? каким законодательным актом устанавливается банковский день?
12. alexk-is 6498 01.09.10 06:07 Сейчас в теме
(11) Наверное, ни какого законодательного акта нет. Это скорее экономический термин чем законодательный. Но его некоторые используют при заключении договоров, оговаривая короткие сроки оплаты.
13. shea 05.10.11 11:18 Сейчас в теме
как соединить 2 таблицы в запросе, при этом у таблиц нет общих реквизитов? можно добавить нуда колонку, например 1, 2 3.... и в другую также, потом по этим соединить?
14. alexk-is 6498 05.10.11 11:23 Сейчас в теме
(13) Какой должен быть результат?
15. SergeyGladyshev 21.12.11 14:03 Сейчас в теме
Долго искал, как вывести даты из определенного диапазона, а тут нашел! Автору статьи респект!
16. sa1m0nn 22 30.12.11 09:35 Сейчас в теме
Прикольно, оригинально, улыбнуло. В свое время тоже башку ломал, как собрать период внутри запроса, не прибегая к собирательству циклов встроенного языка.

Но считаю самым оптимальным в плане производительности и разработки вот такой:

ВЫБРАТЬ ДатаКалендаря ИЗ РегистрСведений.РегламентированныйПроизводственныйКалендарь ГДЕ ДатаКалендаря МЕЖДУ &ДатаНачала И &ДатаОкончания

Минус - только один, производственный календарь должен присутствовать в конфигурации, и должен быть заполнен.
17. AndrewEv 18 06.01.12 17:59 Сейчас в теме
18. dem_mad 11.01.12 20:02 Сейчас в теме
Спасибо! Решение интересное.
19. velichutin 10 20.01.12 13:52 Сейчас в теме
Как пример использования дат в запросе хороший. В своей повседневной работе стал использовать. Нету структурированности в данной статье, а так все здорово!! Спасибо.
21. iotkin 29.02.12 10:51 Сейчас в теме
Спасибо! С удовольствием плюсую!!!
22. bolush 12.03.12 14:57 Сейчас в теме
23. N_aix 22.03.12 09:43 Сейчас в теме
Решение интересное особенно в том плане, что месяц можно выводить как вздумется, цифрой, строкой...
24. sumixam 05.05.12 14:11 Сейчас в теме
Сейчас нашел наконец то что и нужно мне
25. k1us181b 30.08.12 02:33 Сейчас в теме
ГДЕ Десятки.Цифра * 10 <<?>> РАЗНОСТЬДАТ(&НачалоПериода, &КонецПериода, ДЕНЬ)
непонятно немного :(
alexk-is; +1 Ответить
26. alexk-is 6498 30.08.12 06:55 Сейчас в теме
(25) Вернул пропавшие знаки на их место
27. aspirator23 452 23.12.12 10:24 Сейчас в теме
А как соединить в запросе строковое поле и поле даты?
Что-то такое:
ТекстЗапроса=
.....
Документ.Номер+" от "+Документ.Дата
....

Через Выразить, подстрока.. не получается
28. alexk-is 6498 23.12.12 14:33 Сейчас в теме
(27) Нужно дату преобразовать к строке и тогда соединить.
Конечно, это проще сделать после выполнения запроса.
29. aspirator23 452 23.12.12 20:52 Сейчас в теме
(28) Нагуглил решение как в запросе дату к строке преобразовать. В первом посте именно на него ссылаются.
30. profych1 23.12.12 22:45 Сейчас в теме
Как пример использования дат в запросе хороший. В своей повседневной работе стал использовать. Нету структурированности в данной статье, а так все здорово!! Спасибо.
31. Magister 134 15.03.13 13:30 Сейчас в теме
Расчет даты оплаты в банковских дней - работает неправильно.
Передаю дату: 14.03.2013 00:00:00 (четверг)
Банковских дней - 1.
Получаю: 17.03.2013 00:00:00 (воскресенье!)

Передаю банковских дней - 6.
Получаю: 24.03.2013 00:00:00 (опять воскресенье!)
alexk-is; +1 Ответить
32. alexk-is 6498 15.03.13 13:54 Сейчас в теме
(31) Magister, после очередного обновления потерялись все знаки сравнения...
Magister; +1 Ответить
33. Magister 134 15.03.13 14:14 Сейчас в теме
(32) Спасибо за оперативность, вижу уже исправлено :)
Правда я и сам успел уже дойти до исправления.
34. Al-X 05.02.14 10:57 Сейчас в теме
Спасибо ! Мне Пригодится ))))
35. PLAstic 271 23.05.14 14:12 Сейчас в теме
Вчера прочитал эту статью, сегодня понадобилось сделать то же самое (просто календарик). Не понравился пример, за пару минут наваял свой текст запроса. Получилось красивее, имхо. Увеличение диапазона на порядок требует добавления лишь одной строки в текст запроса.
ВЫБРАТЬ
	0 КАК Единица
ПОМЕСТИТЬ ВТЕдиницы

ОБЪЕДИНИТЬ ВСЕ

ВЫБРАТЬ
	1

ОБЪЕДИНИТЬ ВСЕ

ВЫБРАТЬ
	2

ОБЪЕДИНИТЬ ВСЕ

ВЫБРАТЬ
	3

ОБЪЕДИНИТЬ ВСЕ

ВЫБРАТЬ
	4

ОБЪЕДИНИТЬ ВСЕ

ВЫБРАТЬ
	5

ОБЪЕДИНИТЬ ВСЕ

ВЫБРАТЬ
	6

ОБЪЕДИНИТЬ ВСЕ

ВЫБРАТЬ
	7

ОБЪЕДИНИТЬ ВСЕ

ВЫБРАТЬ
	8

ОБЪЕДИНИТЬ ВСЕ

ВЫБРАТЬ
	9
;

////////////////////////////////////////////////////////////­////////////////////
ВЫБРАТЬ
	Сотни.Единица * 100 + Десятки.Единица * 10 + Единицы.Единица КАК Дней
ПОМЕСТИТЬ ВТДоТысячи
ИЗ
	ВТЕдиницы КАК Единицы,
	ВТЕдиницы КАК Десятки,
	ВТЕдиницы КАК Сотни
;

////////////////////////////////////////////////////////////­////////////////////
ВЫБРАТЬ
	ДОБАВИТЬКДАТЕ(&ДатаНач, ДЕНЬ, ВТДоТысячи.Дней) КАК Период
ИЗ
	ВТДоТысячи КАК ВТДоТысячи
ГДЕ
	ДОБАВИТЬКДАТЕ(&ДатаНач, ДЕНЬ, ВТДоТысячи.Дней) <= &ДатаКон
Показать
user1026541; BigB; +2 Ответить
36. venger 2098 02.10.14 14:46 Сейчас в теме
(0) По запросу "Список дат календаря в диапазоне до 2739 лет", например, берем НачалоПериода=01.10.2014, КонецПериода=31.10.2014, получем список дат с 1-го по 30-е, 31-е выпадает. Потом, если взять НачалоПериода=31.10.2014, КонецПериода=30.11.2014, то получим список дат с 31.10 по 29.11, т.е. опять же конец периода выпадает. Если взять НачалоПериода=28.02.2014, КонецПериода=30.03.2014, опять же список дат с 28.02 по 29.03, т.е. опять же конец периода выпадает из списка. Последний день в других случаях, скажем НачалоПериода=01.02.2014, КонецПериода=03.02.2014, выдаст правильно, т.е. список из трех дат (1-е, 2-е и 3-е).

Для себя выкрутился пока так, объединяю получившийся список с началом и концом периода, на всякий случай, в подчиненном запросе, а потом уже выбираю оттуда список дат, ну и чтобы со временем даты не играться - везде параметры (начала и конца периода) во всем запросе привожу к началу дня, чтобы не задваивалось в таком варианте и результат тоже к началу дня привожу, уже на всякий случай, хотя и так все дни будут на начало дня, т.е. так:

// Единицы для календаря
ВЫБРАТЬ 0 КАК Цифра ПОМЕСТИТЬ Единицы
ОБЪЕДИНИТЬ ВСЕ ВЫБРАТЬ 1 ОБЪЕДИНИТЬ ВСЕ ВЫБРАТЬ 2 ОБЪЕДИНИТЬ ВСЕ ВЫБРАТЬ 3
ОБЪЕДИНИТЬ ВСЕ ВЫБРАТЬ 4 ОБЪЕДИНИТЬ ВСЕ ВЫБРАТЬ 5 ОБЪЕДИНИТЬ ВСЕ ВЫБРАТЬ 6
ОБЪЕДИНИТЬ ВСЕ ВЫБРАТЬ 7 ОБЪЕДИНИТЬ ВСЕ ВЫБРАТЬ 8 ОБЪЕДИНИТЬ ВСЕ ВЫБРАТЬ 9;
////////////////////////////////////////////////////////////­////////////////////
// Десятки для календаря. Диапазон дат 3 месяца
ВЫБРАТЬ Десятки.Цифра * 10 КАК Цифра ПОМЕСТИТЬ Десятки ИЗ Единицы КАК Десятки
ГДЕ Десятки.Цифра * 10 < РАЗНОСТЬДАТ(НАЧАЛОПЕРИОДА(&НачалоПериода,ДЕНЬ), НАЧАЛОПЕРИОДА(&КонецПериода,ДЕНЬ), ДЕНЬ);
////////////////////////////////////////////////////////////­////////////////////
// Сотни для календаря. Диапазон дат 2,5 года
ВЫБРАТЬ Сотни.Цифра * 10 КАК Цифра ПОМЕСТИТЬ Сотни ИЗ Десятки КАК Сотни
ГДЕ Сотни.Цифра * 10 < РАЗНОСТЬДАТ(НАЧАЛОПЕРИОДА(&НачалоПериода,ДЕНЬ), НАЧАЛОПЕРИОДА(&КонецПериода,ДЕНЬ), ДЕНЬ);
////////////////////////////////////////////////////////////­////////////////////
// Тысячи для календаря. Диапазон дат 27 лет
ВЫБРАТЬ Тысячи.Цифра * 10 КАК Цифра ПОМЕСТИТЬ Тысячи ИЗ Сотни КАК Тысячи
ГДЕ Тысячи.Цифра * 10 < РАЗНОСТЬДАТ(НАЧАЛОПЕРИОДА(&НачалоПериода,ДЕНЬ), НАЧАЛОПЕРИОДА(&КонецПериода,ДЕНЬ), ДЕНЬ);
////////////////////////////////////////////////////////////­////////////////////
// Десятки тысяч для календаря. Диапазон дат 273 года
ВЫБРАТЬ ДесяткиТысяч.Цифра * 10 КАК Цифра ПОМЕСТИТЬ ДесяткиТысяч ИЗ Тысячи КАК ДесяткиТысяч
ГДЕ ДесяткиТысяч.Цифра * 10 < РАЗНОСТЬДАТ(НАЧАЛОПЕРИОДА(&НачалоПериода,ДЕНЬ), НАЧАЛОПЕРИОДА(&КонецПериода,ДЕНЬ), ДЕНЬ);
////////////////////////////////////////////////////////////­////////////////////
// Сотни тысяч для календаря. Диапазон дат 2739 лет
ВЫБРАТЬ СотниТысяч.Цифра * 10 КАК Цифра ПОМЕСТИТЬ СотниТысяч ИЗ ДесяткиТысяч КАК СотниТысяч
ГДЕ СотниТысяч.Цифра * 10 < РАЗНОСТЬДАТ(НАЧАЛОПЕРИОДА(&НачалоПериода,ДЕНЬ), НАЧАЛОПЕРИОДА(&КонецПериода,ДЕНЬ), ДЕНЬ);
////////////////////////////////////////////////////////////­////////////////////
// Полный ряд до 100
ВЫБРАТЬ Десятки.Цифра + Единицы.Цифра КАК Цифра
ПОМЕСТИТЬ ДоСотни ИЗ Десятки КАК Десятки, Единицы КАК Единицы;
////////////////////////////////////////////////////////////­////////////////////
// Старшие до 10000
ВЫБРАТЬ Тысячи.Цифра + Сотни.Цифра КАК Цифра
ПОМЕСТИТЬ ДоДесятиТысяч ИЗ Тысячи КАК Тысячи, Сотни КАК Сотни;
////////////////////////////////////////////////////////////­////////////////////
// Полный ряд до 10000
ВЫБРАТЬ ДоДесятиТысяч.Цифра + ДоСотни.Цифра КАК Цифра
ПОМЕСТИТЬ ПолныеДесятьТысяч ИЗ ДоДесятиТысяч КАК ДоДесятиТысяч, ДоСотни КАК ДоСотни;
////////////////////////////////////////////////////////////­////////////////////
// Старшие до 1000000
ВЫБРАТЬ СотниТысяч.Цифра + ДесяткиТысяч.Цифра КАК Цифра
ПОМЕСТИТЬ ДоМиллиона ИЗ СотниТысяч КАК СотниТысяч, ДесяткиТысяч КАК ДесяткиТысяч;
////////////////////////////////////////////////////////////­////////////////////
// Список дат календаря в диапазоне до 2739 лет
ВЫБРАТЬ 
	НАЧАЛОПЕРИОДА(ПодчиненныйЗапросДни.ДатаПериода,ДЕНЬ) КАК ДатаПериода
ИЗ	
(ВЫБРАТЬ ДОБАВИТЬКДАТЕ(НАЧАЛОПЕРИОДА(&НачалоПериода,ДЕНЬ), ДЕНЬ, ДоМиллиона.Цифра + ПолныеДесятьТысяч.Цифра) КАК ДатаПериода
ИЗ ДоМиллиона КАК ДоМиллиона, ПолныеДесятьТысяч КАК ПолныеДесятьТысяч
ГДЕ ДоМиллиона.Цифра + ПолныеДесятьТысяч.Цифра <= РАЗНОСТЬДАТ(НАЧАЛОПЕРИОДА(&НачалоПериода,ДЕНЬ), НАЧАЛОПЕРИОДА(&КонецПериода,ДЕНЬ), ДЕНЬ)
ОБЪЕДИНИТЬ 
ВЫБРАТЬ НАЧАЛОПЕРИОДА(&НачалоПериода, ДЕНЬ) КАК ДатаПериода
ОБЪЕДИНИТЬ
ВЫБРАТЬ НАЧАЛОПЕРИОДА(&КонецПериода, ДЕНЬ) ДатаПериода) КАК ПодчиненныйЗапросДни
УПОРЯДОЧИТЬ ПО ДатаПериода;
Показать


Возможно есть еще какие другие варианты или соображения, или еще какие-то "подводные" камни?
37. venger 2098 02.10.14 14:50 Сейчас в теме
Ну, или получше решение можно предложить?
38. alexk-is 6498 02.10.14 18:02 Сейчас в теме
(37) venger, предлагаю взять исправленный вариант из статьи :)

Уже терялись знаки сравнения. Видимо не все правильно восстановил. Поправил.
39. venger 2098 02.10.14 20:12 Сейчас в теме
(38) Спасибо:-))) Шикарно! И все даты в списке в начале периода, в независимости от того, какое время у входящих параметров.
Оставьте свое сообщение

См. также

Звуковое управление в 1С 8.3 Промо

Практика программирования v8 1cv8.cf Бесплатно (free)

В данной статье описано создание библиотеки для звукового управления (выполнение команд голосом) для платформы 1С 8.3. Задача была поставлена так, чтобы модуль функционировал непосредственно на клиенте 1С, осуществляя управление формами, и взаимодействовал с интерфейсом.

16.03.2021    2816    velemir    30    

Полезные примеры СКД, ч.2

Практика программирования v8 v8::СКД Бесплатно (free)

Еще несколько примеров решения задач в СКД.

06.04.2021    3326    Neti    7    

Обзор полезных методов БСП 3.1.4

Практика программирования БСП (Библиотека стандартных подсистем) v8 1cv8.cf Бесплатно (free)

Библиотека стандартных подсистем (далее - БСП) является частью любой типовой конфигурации, поэтому умение применять готовые процедуры и функции повышает качество разработки и избавляет от написания лишнего кода. К сожалению, не у всех есть время и упорство овладеть всей документацией, поэтому я собрал воедино наиболее популярный функционал.

25.03.2021    12647    rayastar    45    

Базовые вещи БСП, которые облегчат жизнь программисту 1С

Практика программирования БСП (Библиотека стандартных подсистем) v8 1cv8.cf Россия Бесплатно (free)

В данной публикации я опишу полезные процедуры и функции модуля общего назначения библиотеки стандартных подсистем, обязательные к использованию любым программистом 1С.

30.08.2020    12734    quazare    34    

Serverless (Faas) в 1С. Создание и вызов Yandex Cloud Functions Промо

Универсальные функции Практика программирования v8 Бесплатно (free)

"Я не могу просто взять и скопировать код с гитхаба", "у нас 1С микросервисами окружена", "возможностей мало" - частые фразы 1С разработчиков. которым не хватает возможностей платформы в современном мире. Faas, конечно, история не новая, но нас сдерживало 152ФЗ и задержки по пингам. Для того, чтобы действительно использовать в 1С код, к примеру, на Python, надо было приложить усилия. Теперь всё намного проще - берём и используем.

28.12.2020    5187    comol    31    

Форма выбора (подбор) в управляемых формах

Практика программирования v8 v8::УФ 1cv8.cf Россия Бесплатно (free)

Разбор небольших примеров того, как правильно открывать форму выбора (подбора) в управляемых формах, не прибегая к модальным окнам.

08.05.2020    42803    user5300    17    

Программная работа с настройками СКД

Практика программирования v8 v8::СКД 1cv8.cf Бесплатно (free)

Нюансы программной работы с настройками системы компоновки данных в отчетах и динамических списках. Обзор всех видов настроек компоновки. Что в каких случаях правильно применять. В качестве примера рассмотрена работа с отборами и группировками.

27.01.2020    43865    ids79    26    

[СКД] Программное создание схемы компоновки данных

Практика программирования v8 v8::СКД 1cv8.cf Бесплатно (free)

Сделаем отчет на СКД полностью программно, без использования макета "схема компоновки данных".

15.01.2020    32812    John_d    22    

Использование программных перечислений, ч.1: строковые константы Промо

Практика программирования v8 1cv8.cf Бесплатно (free)

Часто ли у вас возникает необходимость в коде выполнять сравнение на строку?

10.12.2016    38908    unichkin    74    

Последовательности событий при проведении документа 1С. Шпаргалка + про формы + про расширения

Практика программирования v8 Россия Бесплатно (free)

Собрал информацию о событиях/подписках/расширениях в одном месте.

30.12.2019    25337    kuzyara    38    

30 задач. Странных и не очень

Практика программирования v8 Бесплатно (free)

30 задач на знание языка программирования 1С и некоторого поведения платформы. Маленьких. Странных и не очень.

02.12.2019    19722    YPermitin    60    

Как передать IP адрес, который вызвал HTTP запрос в 1C (для веб-сервера Apache)

Практика программирования v8 Бесплатно (free)

Столкнулся с задачей получения IP адреса, который вызывает http сервис 1С. Итак, решение:

22.11.2019    10269    Sibars    19    

Вспомогательные инструкции в коде 1С Промо

Практика программирования v8 1cv8.cf Бесплатно (free)

Помогаем редактору кода 1С помогать нам писать и анализировать код.

15.10.2018    32694    tormozit    105    

Полезные процедуры и функции для программиста

Практика программирования Универсальные функции v8 1cv8.cf Россия Бесплатно (free)

Все мы пишем программный код и часто используем процедуры, облегчающие его написание. Ниже приведена выборка таких полезных процедур и функций.

07.10.2019    34372    HostHost    41    

Таблица значений. Нюансы

Практика программирования v8 Бесплатно (free)

Обзор некоторых аспектов использования общеизвестного инструмента 1С.

01.10.2019    42944    Yashazz    50    

О программе Postman для тестирования API и для чего она нужна 1С-нику

Практика программирования Программное обеспечение (software) v8 Бесплатно (free)

Для чего нужна программа Postman для тестирования API и какая от него польза для 1С-программиста.

24.09.2019    15605    budidich    28    

Оформление и рефакторинг сложных логических выражений Промо

Практика программирования v8 Россия Бесплатно (free)

В сложных логических выражениях нередко самому автору спустя какое-то время тяжело разобраться, не говоря уже о других программистах. Предлагаемая методика позволяет повысить наглядность таких выражений путем оформления в виде И-ИЛИ дерева и одновременно выполнять их рефакторинг.

20.09.2012    79796    tormozit    131    

[Шпаргалка] Программное создание элементов формы

Практика программирования Работа с интерфейсом v8 1cv8.cf Бесплатно (free)

Программное создание практически всех популярных элементов формы.

06.09.2019    73467    rpgshnik    70    

Агрегатные функции СКД, о которых мало кто знает

Практика программирования v8 v8::СКД 1cv8.cf Бесплатно (free)

Пользуетесь ли Вы всеми возможными агрегатными функциями, которые предоставляет система компоновки данных? Если Вы используете только: СУММА, КОЛИЧЕСТВО, МИНИМУМ, МАКСИМУМ, СРЕДНЕЕ, то эта статья для Вас.

05.09.2019    61598    ids79    55    

Регистры бухгалтерии. Общая информация

Практика программирования Математика и алгоритмы v8 v8::БУ БУ Бесплатно (free)

Общая информация о внутреннем устройстве регистров бухгалтерии.

05.09.2019    35068    YPermitin    25    

Запись значения в поле ввода/формы со срабатыванием события ПриИзменении Промо

Практика программирования v8 1cv8.cf Россия Бесплатно (free)

Иногда возникает необходимость после записи значения в какое либо поле ввода/формы вызвать для него обработчик события ПриИзменении, а о вызове самого события приходится только мечтать. В этой статье приводится программный способ вызова этого события.

11.07.2007    50737    tormozit    49    

Три костыля. Сказ про фокусы в коде

Практика программирования v8 Бесплатно (free)

Три интересных (или странных) костыля в коде, которые могут помочь в повседневных и не очень задачах.

03.09.2019    27624    YPermitin    81    

Отслеживание выполнения фонового задания

Практика программирования Универсальные функции Разработка v8 1cv8.cf Бесплатно (free)

Запуск фонового задания из модуля внешней обработки. Отслеживание выполнения задания в виде прогресса, расположенного на форме.

17.08.2019    38086    ids79    16    

Функции СКД: ВычислитьВыражение, ВычислитьВыражениеСГруппировкойМассив

Практика программирования v8 v8::СКД 1cv8.cf Бесплатно (free)

Подробное описание и использование внутренних функций системы компоновки данных: Вычислить, ВычислитьВыражение, ВычислитьВыражениеСГруппировкойМассив, ВычислитьВыражениеСГруппировкойТаблицаЗначений.

08.08.2019    115769    ids79    69    

Как сделать из &НаКлиентеНаСервереБезКонтекста почти &НаКлиентеНаСервере Промо

Практика программирования v8 1cv8.cf Россия Бесплатно (free)

Как сделать метод формы, доступный на клиенте и на сервере одновременно, и сохранить при этом удобство разработки

10.09.2017    47594    tormozit    74    

Фоновое выполнение кода в 1С - это просто

Практика программирования v8 1cv8.cf Бесплатно (free)

Как легко запускать выполнение в фоне, не прибегая к долгому описанию фоновых процедур.

02.08.2019    47206    avalakh    26    

Разбираемся с параметрами редактирования СКД

Практика программирования v8 v8::СКД 1cv8.cf Бесплатно (free)

Связь по типу, Параметры выбора, Связи параметров выбора

31.07.2019    31659    json    15    

СКД - наборы данных и связи между ними, создание собственной иерархии, вложенные отчеты

Практика программирования v8 v8::СКД 1cv8.cf Бесплатно (free)

Набор данных объект. Использование в схеме компоновки нескольких наборов данных. Различные варианты связи наборов: объединение, соединение. Использование иерархии в отчетах на СКД. Создание собственной иерархии, иерархия детальных записей. Использование вложенных схем в отчетах на СКД.

26.07.2019    82041    ids79    14    

Выгрузка документа по условию Промо

Практика программирования Разработка v8 Бесплатно (free)

Что делать, если документы нужно выгружать не все подряд, а по какому-то фильтру: статусу, дате, набору условий... А что если он соответствовал этим условиям, а потом перестал? А если потом опять начал? Такие ситуации заставили попотеть не одного программиста.

25.04.2019    16629    m-rv    2    

СКД - использование расширений языка запросов, секция ХАРАКТЕРИСТИКИ

Инструментарий разработчика Практика программирования v8 v8::СКД Бесплатно (free)

Автоматическое и не автоматическое заполнение полей компоновки данных. Использование расширений языка запросов для СКД «{…}», секция ВЫБРАТЬ, секция ГДЕ, параметры виртуальных таблиц. Автоматизированное использование дополнительных данных в запросе: секция ХАРАКТЕРИСТИКИ.

17.07.2019    41494    ids79    27    

Регистры сведений. За кулисами

Практика программирования Разработка v8 1cv8.cf Бесплатно (free)

Небольшие заметки по внутреннему устройству регистров сведений.

09.07.2019    29435    YPermitin    14    

"Меньше копипаста!", или как Вася универсальную процедуру писал

Практика программирования Разработка v8 v8::СКД 1cv8.cf Бесплатно (free)

Программист Вася разбирает подход создания универсальных методов на примере программного вывода СКД.

04.07.2019    20662    SeiOkami    50    

Как прикрутить ГУИД к регистру сведений Промо

Практика программирования Перенос данных из 1C8 в 1C8 Разработка v8 Бесплатно (free)

... и немного теории обмена данными. В частности, разберем боль всех, кто пишет небанальные обмены данными: как набору записей регистра сведений назначить гуид и далее использовать его в обмене для идентификации этого набора.

16.04.2019    21247    m-rv    17    

Работа с настройками системы компоновки данных

Практика программирования v8 v8::СКД 1cv8.cf Бесплатно (free)

Варианты отчетов, работа с настройками вариантов: структура группировок, поля отчета, отборы, сортировка, условное оформление, другие настройки, настройки отображения диаграмм.

02.07.2019    64200    ids79    17    

Создание отчетов с помощью СКД - основные понятия и элементы

Практика программирования Математика и алгоритмы v8 v8::СКД Бесплатно (free)

Основные принципы работы СКД. Понятия схемы компоновки и макета компоновки. Описание основных элементов схемы компоновки: наборы данных, поля, вычисляемые поля, ресурсы, параметры.

25.06.2019    63318    ids79    26    

Многопоточное ускорение однопользовательских нагрузок в 1С + Microsoft SQL Server 2017

Практика программирования Производительность и оптимизация (HighLoad) v8 v8::Запросы Бесплатно (free)

Взаимодействие с Microsoft SQL Server нередко вызывает трудности у 1С-ников, а потому интересны любые моменты, связанные с его использованием. О своем опыте работы с новым SQL Server 2017 участникам конференции Infostart-2018 рассказал директор ООО «Аналитика софт» Дмитрий Дудин.

11.06.2019    27824    dmurk    146    

Как сделать запрос на изменение данных Промо

Практика программирования v8 v8::Запросы 1cv8.cf Бесплатно (free)

В статье приведены особенности внутренней архитектуры и примеры работы с расширением языка запросов 1С.

01.06.2018    33069    m-rv    22    

Регистры накопления. Виртуальные таблицы. Часть №2: "Остатки" и "Остатки и обороты"

Практика программирования v8 1cv8.cf Бесплатно (free)

Описание работы платформы 1С:Предприятие 8.2 с виртуальными таблицами регистров накопления "Остатки" и "Остатки и обороты". Анализ SQL-запрос при работе с виртуальными таблицами

22.05.2019    34358    YPermitin    7    

Регистры накопления. Структура хранения в базе данных

Практика программирования Разработка v8 1cv8.cf Бесплатно (free)

Структура хранения регистров накопления в базе данных для платформы 1С:Предприятие 8.x. Первая часть в серии публикаций.

16.05.2019    52173    YPermitin    30    

О расширениях замолвите слово...

Практика программирования Разработка v8 Бесплатно (free)

О чём стоит задуматься при принятии решения о создании расширения конфигурации…

07.04.2019    38896    ellavs    127    

Метод формирования движений в типовых регистрах нетиповыми регистраторами Промо

Практика программирования v8 1cv8.cf Бесплатно (free)

Вариант решения задач с проведением по типовым регистрам нетиповыми регистраторами. Зачем - чтобы при сравнении конфигурации не обращать внимание на свойства регистров и исключить вероятность допущения горькой оплошности при обновлении информационных баз, заменив типы регистраторов основной конфигурации типами конфигурации поставщика. Для программных продуктов, имеющих в своем составе метаданных документ "Корректировка регистров"("Корректировка записей регистров").

05.12.2017    29037    itriot11    34    

Git-репозитории для 1С-кода (опыт использования при небольших проектах)

Практика программирования v8 Бесплатно (free)

Инструкции по взаимодействию с Git-репозиторием, которые писались для тех наших программистов, которые вообще никогда не работали с Git (руководства в духе "Как получить код из git-репозитория?", "Как отправить код в git-репозиторий")...

28.03.2019    29089    ellavs    90    

Трюки с внешними источниками данных

Практика программирования Разработка v8 1cv8.cf Бесплатно (free)

Некоторые трюки для преодоления ограничений внешних источников данных.

14.03.2019    35764    YPermitin    53    

Ошибки при работе с хранилищем конфигурации и способы их решения

Практика программирования v8 Бесплатно (free)

В статье собраны наиболее распространенные ошибки при работе с хранилищем конфигурации и способы их обхода и решения.

01.03.2019    52208    Смешной 1С    31    

Использование классов .Net в 1С для новичков Промо

Практика программирования Разработка внешних компонент Универсальные функции v7.7 v8 Бесплатно (free)

Руководство для новичков. Написав статью http://infostart.ru/public/238584/, я понял, что многие не понимают того, что написано. Поэтому в этой статье постараюсь более подробно остановиться на азах и без кода на вражеском языке (C#)

27.01.2016    79145    Serginio    113    

Разработка и сценарное тестирование с Vanessa-ADD. Отчетность Allure. Автоматизация запуска сценариев

Практика программирования Vanessa Automation v8 Россия Бесплатно (free)

Формируем отчетность о результатах выполнения сценариев. Автоматизируем запуск.

26.02.2019    25045    Vladimir Litvinenko    28    

Автоматические и управляемые блокировки применительно к типовым конфигурациям 1С Промо

Математика и алгоритмы Практика программирования v8 v8::blocking 1cv8.cf Бесплатно (free)

Основные принципы работы с режимами автоматических и управляемых блокировок в 1С Предприятие 8. Теория и применение в типовых конфигурациях: БП, УТ, ЕРП

10.11.2018    38767    ids79    40