IE 2016

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

Опубликовал alexk-is в раздел Программирование - Практика программирования

Понадобилось в запросе выполнить некоторые операции с датами:
- посчитать дату оплаты в банковских днях;
- собирать строки, в которые должны были входить даты, точнее строковые представления дат в формате "ДФ=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 31.03.2010 05:30
Решение интересное, но есть более простое ;)
http://www.forum.mista.ru/topic.php?id=388253 (23 пост)
+ 2 [ Hany; Serjik78; ]
# Ответить
31. Magister 15.03.2013 13:30
Расчет даты оплаты в банковских дней - работает неправильно.
Передаю дату: 14.03.2013 00:00:00 (четверг)
Банковских дней - 1.
Получаю: 17.03.2013 00:00:00 (воскресенье!)

Передаю банковских дней - 6.
Получаю: 24.03.2013 00:00:00 (опять воскресенье!)
Ответили: (32)
+ 1 [ alexk-is; ]
# Ответить
16. sa1m0nn 30.12.2011 09:35
Прикольно, оригинально, улыбнуло. В свое время тоже башку ломал, как собрать период внутри запроса, не прибегая к собирательству циклов встроенного языка.

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

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

Минус - только один, производственный календарь должен присутствовать в конфигурации, и должен быть заполнен.
+ 1 [ jmi; ]
# Ответить

Комментарии

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

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

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

Минус - только один, производственный календарь должен присутствовать в конфигурации, и должен быть заполнен.
+ 1 [ jmi; ]
# Ответить
17. AndrewEv 06.01.2012 17:59
2739 - год конца света
# Ответить
18. dem_mad 11.01.2012 20:02
Спасибо! Решение интересное.
# Ответить
19. velichutin 20.01.2012 13:52
Как пример использования дат в запросе хороший. В своей повседневной работе стал использовать. Нету структурированности в данной статье, а так все здорово!! Спасибо.
# Ответить
21. amorhis 29.02.2012 10:51
Спасибо! С удовольствием плюсую!!!
# Ответить
22. bolush 12.03.2012 14:57
спасибо круто все
# Ответить
23. AtheistFD 22.03.2012 09:43
Решение интересное особенно в том плане, что месяц можно выводить как вздумется, цифрой, строкой...
# Ответить
24. sumixam 05.05.2012 14:11
Сейчас нашел наконец то что и нужно мне
# Ответить
25. k1us181b 30.08.2012 02:33
ГДЕ Десятки.Цифра * 10 <<?>> РАЗНОСТЬДАТ(&НачалоПериода, &КонецПериода, ДЕНЬ)
непонятно немного :(
Ответили: (26)
+ 1 [ alexk-is; ]
# Ответить
26. alexk-is 30.08.2012 06:55
(25) Вернул пропавшие знаки на их место
# Ответить
27. aspirator23 (файл скачал) 23.12.2012 10:24
А как соединить в запросе строковое поле и поле даты?
Что-то такое:
ТекстЗапроса=
.....
Документ.Номер+" от "+Документ.Дата
....

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

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

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

ВЫБРАТЬ
	1

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

ВЫБРАТЬ
	2

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

ВЫБРАТЬ
	3

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

ВЫБРАТЬ
	4

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

ВЫБРАТЬ
	5

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

ВЫБРАТЬ
	6

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

ВЫБРАТЬ
	7

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

ВЫБРАТЬ
	8

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

ВЫБРАТЬ
	9
;

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

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

Уже терялись знаки сравнения. Видимо не все правильно восстановил. Поправил.
Ответили: (39)
+ 1 [ venger; ]
# Ответить
39. venger 02.10.2014 20:12
(38) Спасибо:-))) Шикарно! И все даты в списке в начале периода, в независимости от того, какое время у входящих параметров.
# Ответить
Внимание! За постинг в данном форуме $m не начисляются.
Внимание! Для написания сообщения необходимо авторизоваться
Текст сообщения*
Прикрепить файл






IE 2016