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

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

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

133
Понадобилось в запросе выполнить некоторые операции с датами:
- посчитать дату оплаты в банковских днях;
- собирать строки, в которые должны были входить даты, точнее строковые представления дат в формате "ДФ=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 лет
ВЫБРАТЬ ДОБАВИТЬКДАТЕ(&НачалоПериода, ДЕНЬ, ДоМиллиона.Цифра + ПолныеДесятьТысяч.Цифра) КАК ДатаПериода
ПОМЕСТИТЬ Даты ИЗ ДоМиллиона КАК ДоМиллиона, ПолныеДесятьТысяч КАК ПолныеДесятьТысяч
ГДЕ ДоМиллиона.Цифра + ПолныеДесятьТысяч.Цифра <= РАЗНОСТЬДАТ(&НачалоПериода, &КонецПериода, ДЕНЬ);
////////////////////////////////////////////////////////////////////////////////
// Список со строковыми представлениями дат из списка
ВЫБРАТЬ "Строка: " + Дни.ОбразЧисла + "." + Месяцы.ОбразЧисла + "."
 
+ Года.ОбразЧисла КАК ПредставлениеСтроки ИЗ Даты КАК Даты
ЛЕВОЕ СОЕДИНЕНИЕ Дни КАК Дни ПО (ДЕНЬ(Даты.ДатаПериода) = Дни.ЧислоДиапазона)
ЛЕВОЕ СОЕДИНЕНИЕ Месяцы КАК Месяцы ПО (МЕСЯЦ(Даты.ДатаПериода) = Месяцы.ЧислоДиапазона)
ЛЕВОЕ СОЕДИНЕНИЕ Года КАК Года ПО (ГОД(Даты.ДатаПериода) = Года.ЧислоДиапазона)
УПОРЯДОЧИТЬ ПО Даты.ДатаПериода


 

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

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

133

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

Комментарии
Избранное Подписка Сортировка: Древо
1. MoneG2 27 31.03.10 05:30 Сейчас в теме
Решение интересное, но есть более простое ;)
http://www.forum.mista.ru/topic.php?id=388253 (23 пост)
Hany; Serjik78; +2 Ответить
2. a-novoselov 1095 31.03.10 07:34 Сейчас в теме
(0) Да уж, чего-то перемудрил с преобразованием. Намного проще 'цифры строкой' в параметре запросу передать и не мучаться, раз уж "1С Язык запросов, чем-то похожий на SQL" не умеет типы преобразовывать.
3. alexk-is 6431 31.03.10 08:34 Сейчас в теме
4. a-novoselov 1095 31.03.10 10:27 Сейчас в теме
(3) Да так тоже очень изящно, молоток. Просто, как ты сам же любишь говорить, не взрывай мозг, делай проще.
5. RailMen 20.06.10 21:57 Сейчас в теме
не дай бог такое увидеть в чей-то базе
7. Поручик 4345 21.06.10 20:58 Сейчас в теме
(5) Это ещё не самое худшее, что можно увидеть в чьей-то базе.
Не дай бог увидеть в чьей-то базе то, что есть в других некоторых базах, вот где жесть.
6. RailMen 20.06.10 21:58 Сейчас в теме
а само решение интересное
8. AlexO 128 16.07.10 15:53 Сейчас в теме
А что за задачи такие - выбрать даты? Откуда, что за даты?
9. CheBurator 3404 01.09.10 01:15 Сейчас в теме
Что есть "банковский день"?
11. CheBurator 3404 01.09.10 05:30 Сейчас в теме
(10) если говорить прямо: лабуда. что значит "обычно банковский день продолжается с 10 до 16 часов.", а необычно? каким законодательным актом устанавливается банковский день?
12. alexk-is 6431 01.09.10 06:07 Сейчас в теме
(11) Наверное, ни какого законодательного акта нет. Это скорее экономический термин чем законодательный. Но его некоторые используют при заключении договоров, оговаривая короткие сроки оплаты.
13. shea 05.10.11 11:18 Сейчас в теме
как соединить 2 таблицы в запросе, при этом у таблиц нет общих реквизитов? можно добавить нуда колонку, например 1, 2 3.... и в другую также, потом по этим соединить?
14. alexk-is 6431 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 6431 30.08.12 06:55 Сейчас в теме
(25) Вернул пропавшие знаки на их место
27. aspirator23 410 23.12.12 10:24 Сейчас в теме
А как соединить в запросе строковое поле и поле даты?
Что-то такое:
ТекстЗапроса=
.....
Документ.Номер+" от "+Документ.Дата
....

Через Выразить, подстрока.. не получается
28. alexk-is 6431 23.12.12 14:33 Сейчас в теме
(27) Нужно дату преобразовать к строке и тогда соединить.
Конечно, это проще сделать после выполнения запроса.
29. aspirator23 410 23.12.12 20:52 Сейчас в теме
(28) Нагуглил решение как в запросе дату к строке преобразовать. В первом посте именно на него ссылаются.
30. profych1 23.12.12 22:45 Сейчас в теме
Как пример использования дат в запросе хороший. В своей повседневной работе стал использовать. Нету структурированности в данной статье, а так все здорово!! Спасибо.
31. Magister 133 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 6431 15.03.13 13:54 Сейчас в теме
(31) Magister, после очередного обновления потерялись все знаки сравнения...
Magister; +1 Ответить
33. Magister 133 15.03.13 14:14 Сейчас в теме
(32) Спасибо за оперативность, вижу уже исправлено :)
Правда я и сам успел уже дойти до исправления.
34. Al-X 05.02.14 10:57 Сейчас в теме
Спасибо ! Мне Пригодится ))))
35. PLAstic 224 23.05.14 14:12 Сейчас в теме
Вчера прочитал эту статью, сегодня понадобилось сделать то же самое (просто календарик). Не понравился пример, за пару минут наваял свой текст запроса. Получилось красивее, имхо. Увеличение диапазона на порядок требует добавления лишь одной строки в текст запроса.
ВЫБРАТЬ
	0 КАК Единица
ПОМЕСТИТЬ ВТЕдиницы

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

ВЫБРАТЬ
	1

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

ВЫБРАТЬ
	2

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

ВЫБРАТЬ
	3

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

ВЫБРАТЬ
	4

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

ВЫБРАТЬ
	5

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

ВЫБРАТЬ
	6

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

ВЫБРАТЬ
	7

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

ВЫБРАТЬ
	8

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

ВЫБРАТЬ
	9
;

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

////////////////////////////////////////////////////////////­////////////////////
ВЫБРАТЬ
	ДОБАВИТЬКДАТЕ(&ДатаНач, ДЕНЬ, ВТДоТысячи.Дней) КАК Период
ИЗ
	ВТДоТысячи КАК ВТДоТысячи
ГДЕ
	ДОБАВИТЬКДАТЕ(&ДатаНач, ДЕНЬ, ВТДоТысячи.Дней) <= &ДатаКон
Показать
user1026541; BigB; +2 Ответить
36. venger 2086 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 2086 02.10.14 14:50 Сейчас в теме
Ну, или получше решение можно предложить?
38. alexk-is 6431 02.10.14 18:02 Сейчас в теме
(37) venger, предлагаю взять исправленный вариант из статьи :)

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

См. также

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

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

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

15.01.2020    3254    John_d    14       

Готовые переносы данных из различных конфигураций 1C Промо

Рекомендуем готовые решения для переноса данных из различных конфигураций 1C. C техподдержкой от разработчиков и гарантией от Инфостарт.

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

Статья Программист Стажер Нет файла v8 Бесплатно (free) Практика программирования

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

02.12.2019    7884    YPermitin    71       

Онлайн-курс "Подготовка к экзамену 1С:Эксперт и 1С:Профессионал по технологическим вопросам" с 7 по 24 апреля 2020 г. Промо

На курсе вы получите практические навыки решения задач производительности 1С, в том числе характерных для высоконагруженных информационных систем (более 1000 пользователей). Подготовка к экзамену – только одна из составляющих курса. 70% слушателей приходят за знаниями, которые позволят расти и зарабатывать, делать сложные задачи на крупных проектах.

16450 рублей

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

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

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

05.09.2019    20403    ids79    45       

Программы для исполнения 488-ФЗ: Маркировка товаров Промо

1 января 2019 года вступил в силу ФЗ от 25.12.2018 № 488-ФЗ о единой информационной системе маркировки товаров с использованием контрольных (идентификационных) знаков, который позволяет проследить движение товара от производителя до конечного потребителя. Инфостарт предлагает подборку программ, связанных с применением 488-ФЗ и маркировкой товаров.

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

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

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

03.09.2019    12823    YPermitin    69       

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

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

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

17.08.2019    16043    ids79    16       

INFOSTART MEETUP Krasnodar. 14 февраля 2020 г. Промо

Краснодар станет первым в 2020 году местом, где пройдет региональная встреча IT-специалистов сообщества Инфостарт. Тема мероприятия - управление и технологии автоматизации учета на платформе "1С: Предприятие". Стоимость участия - 5000 рублей. Цена действительна до 26.12.2019.

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

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

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

08.08.2019    25775    ids79    34       

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

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

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

02.08.2019    16080    avalakh    21       

Подборка решений для взаимодействия со ФГИС «Меркурий» Промо

С 1 июля 2019 года все компании, участвующие в обороте товаров животного происхождения, должны перейти на электронную ветеринарную сертификацию (ЭВС) через ФГИС «Меркурий». Инфостарт предлагает подборку программ, связанных с этим изменением.

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

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

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

26.07.2019    22017    ids79    8       

Программы для исполнения 54-ФЗ Промо

С 01.02.2017 контрольно-кассовая техника должна отправлять электронные версии чеков оператору фискальных данных - правила установлены в 54-ФЗ ст.2 п.2. Инфостарт предлагает подборку программ, связанных с применением 54-ФЗ, ККТ и электронных чеков.

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

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

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

17.07.2019    16865    ids79    27       

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

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

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

09.07.2019    13218    YPermitin    12       

Базовый курс по разработке мобильных 1C-приложений для Android-устройств. Третий поток. Онлайн-интенсив с 11 февраля по 05 марта 2020 г. Промо

Данный онлайн-курс предусматривает изучение базовых принципов создания приложений для операционной системы Android, работающих на мобильной платформе “1С:Предприятие”. Курс предназначен для тех, кто уже имеет определенные навыки конфигурирования и программирования в системе “1С:Предприятие” при разработке прикладных решений для “обычных” компьютеров, но пока ещё не занимался разработкой 1С-приложений, предназначенных для работы на мобильных устройствах.

7500 рублей

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

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

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

04.07.2019    11389    SeiOkami    49       

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

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

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

25.06.2019    28331    ids79    17       

1C:Предприятие для программистов: Запросы и отчеты. Второй поток. Онлайн-интенсив с 17 марта по 16 апреля 2020 г. Промо

Данный онлайн-курс предусматривает углубленное изучение языка запросов и возможностей системы компоновки данных, которые понадобятся при разработке отчетов, работающих на платформе “1С:Предприятие” в рамках различных прикладных решений. Курс предназначен для тех, кто уже имеет определенные навыки конфигурирования и программирования в системе “1С:Предприятие”, а также для опытных пользователей различных прикладных решений, которые используют в своей работе отчеты разного назначения.

6500 рублей

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

Статья Программист Нет файла v8 v8::Запросы Бесплатно (free) Практика программирования Разработка

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

11.06.2019    15627    dmurk    144       

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

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

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

16.05.2019    24630    YPermitin    27       

Подборка программ для взаимодействия с ЕГАИС Промо

ЕГАИС (Единая государственная автоматизированная информационная система) - автоматизированная система, предназначенная для государственного контроля за объёмом производства и оборота этилового спирта, алкогольной и спиртосодержащей продукции. Инфостарт рекомендует подборку проверенных решений для взаимодействия с системой.

Выполнение внешней обработки в фоновом задании 153

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

Подробное описание подхода к созданию длительной операции на основе внешней обработки. Реализация протестирована на 1С 8.3.12.1714 (x64).

11.05.2019    15663    Eret1k    23       

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

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

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

25.04.2019    8750    m-rv    2       

Перенос данных УТ 10.3 => УТ 11 / КА 2 / ERP 2 (ЕРП 2) (документы, остатки и справочная информация из "1С:Управление торговлей, ред. 10.3" в УТ 11 / КА 2 / ERP 2). Обновлен до УТ 10.3.56.х, УТ 11.4.10.х, КА 2.4.10.х и ERP 2.4.10.х! Промо

Уже более 100 компаний приобрели перенос и выполнили переход на УТ 11 / КА 2 / ERP 2 с помощью нашей разработки! Обработка перехода с УТ 10.3 на УТ 11 / КА 2 / ERP 2 позволяет перенести не только остатки на указанную дату (как типовой перенос), но и все возможные документы за выбранный период. При выходе новых релизов этих программ оперативно выпускаем обновление обработки. Предоставляем техническую поддержку. Можем сделать бесплатный тестовый перенос!

29700 руб.

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

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

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

16.04.2019    11696    m-rv    16       

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

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

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

07.04.2019    21213    ellavs    125       

22 января состоится вебинар "Использование технологии блокчейн в 1С" Промо

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

990 рублей

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

Статья Программист Стажер Нет файла v8 Windows Бесплатно (free) Практика программирования Разработка

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

28.03.2019    17269    ellavs    83       

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

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

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

14.03.2019    18829    YPermitin    53       

PgConf.Russia 2020. 3-5 февраля 2020 г. Москва. Промо

PGConf.Russia – международная техническая конференция по открытой СУБД PostgreSQL, ежегодно собирающая более 700 разработчиков, администраторов баз данных и IT-менеджеров для обмена опытом и профессионального общения. Для участников сообщества infostart.ru скидка 5% на участие в конференции.

от 12350 рублей