gifts2017

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

Опубликовал Александр Бажибин (hamec) в раздел Программирование - Практика программирования

Простенький запрос для расчета стоимости периодической услуги

Всем добрый день.

Хотелось бы представить общественности на суд простенький запрос (первая публикация) для расчета стоимости периодической услуги.

Исходная задача ставилась следующим образом:

1) На вход подается стоимость услуги за полный месяц;

2) ПериодС и ПериодПо, могут быть как полными месяцами (01.01.15-31.03.15), так и в любой дате месяца (05.01.15-23.02.15)

3) На выходе получаем Сумму исходя из количества полных месяцев в периоде и остатков дней

Если можно решить задачу другим, более красивым способом, интересно было бы почитать мнение гуру

 

ВЫБРАТЬ
	&ПериодС,
	&ПериодПо,
	ВЫБОР
		КОГДА НАЧАЛОПЕРИОДА(&ПериодС, МЕСЯЦ) = &ПериодС
				И КОНЕЦПЕРИОДА(&ПериодПо, МЕСЯЦ) = &ПериодПо
			ТОГДА РАЗНОСТЬДАТ(&ПериодС, &ПериодПо, МЕСЯЦ) + 1
		КОГДА НАЧАЛОПЕРИОДА(&ПериодС, МЕСЯЦ) <> &ПериодС
				И КОНЕЦПЕРИОДА(&ПериодПо, МЕСЯЦ) = &ПериодПо
			ТОГДА РАЗНОСТЬДАТ(&ПериодС, &ПериодПо, МЕСЯЦ)
		КОГДА НАЧАЛОПЕРИОДА(&ПериодС, МЕСЯЦ) = &ПериодС
				И КОНЕЦПЕРИОДА(&ПериодПо, МЕСЯЦ) <> &ПериодПо
			ТОГДА РАЗНОСТЬДАТ(&ПериодС, &ПериодПо, МЕСЯЦ)
		ИНАЧЕ 0
	КОНЕЦ КАК КоличествоПолныхМесяцев,
	ЕСТЬNULL(ВЫБОР
			КОГДА НЕ НАЧАЛОПЕРИОДА(&ПериодС, МЕСЯЦ) = &ПериодС
				ТОГДА РАЗНОСТЬДАТ(&ПериодС, КОНЕЦПЕРИОДА(&ПериодС, МЕСЯЦ), ДЕНЬ)
		КОНЕЦ, 0) КАК ОстатокДнейПериодС,
	ЕСТЬNULL(ВЫБОР
			КОГДА НЕ КОНЕЦПЕРИОДА(&ПериодПо, МЕСЯЦ) = &ПериодПо
				ТОГДА РАЗНОСТЬДАТ(НАЧАЛОПЕРИОДА(&ПериодПо, МЕСЯЦ), &ПериодПо, ДЕНЬ) + 1
		КОНЕЦ, 0) КАК ОстатокДнейПериодПо,
	НАЧАЛОПЕРИОДА(&ПериодС, МЕСЯЦ) КАК НачалоМесяцаПериодС,
	КОНЕЦПЕРИОДА(&ПериодС, МЕСЯЦ) КАК КонецоМесяцаПериодС,
	РАЗНОСТЬДАТ(НАЧАЛОПЕРИОДА(&ПериодС, МЕСЯЦ), КОНЕЦПЕРИОДА(&ПериодС, МЕСЯЦ), ДЕНЬ) + 1 КАК КоличествоДнейПериодС,
	РАЗНОСТЬДАТ(НАЧАЛОПЕРИОДА(&ПериодПо, МЕСЯЦ), КОНЕЦПЕРИОДА(&ПериодПо, МЕСЯЦ), ДЕНЬ) + 1 КАК КоличествоДнейПериодПо
ПОМЕСТИТЬ ТаблицаПериодов
;

////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ
	ТаблицаПериодов.ПериодС,
	ТаблицаПериодов.ПериодПо,
	ТаблицаПериодов.КоличествоПолныхМесяцев,
	ТаблицаПериодов.ОстатокДнейПериодС,
	ТаблицаПериодов.ОстатокДнейПериодПо,
	ТаблицаПериодов.КоличествоДнейПериодС,
	ТаблицаПериодов.КоличествоДнейПериодПо,
	ВЫРАЗИТЬ(&Цена / ТаблицаПериодов.КоличествоДнейПериодС КАК ЧИСЛО(15, 2)) КАК ЦенаДняПериодС,
	ВЫРАЗИТЬ(&Цена / ТаблицаПериодов.КоличествоДнейПериодПо КАК ЧИСЛО(15, 2)) КАК ЦенаДняПериодПо,
	&Цена * ТаблицаПериодов.КоличествоПолныхМесяцев + (ВЫРАЗИТЬ(&Цена / ТаблицаПериодов.КоличествоДнейПериодС КАК ЧИСЛО(15, 2))) * ТаблицаПериодов.ОстатокДнейПериодС + (ВЫРАЗИТЬ(&Цена / ТаблицаПериодов.КоличествоДнейПериодПо КАК ЧИСЛО(15, 2))) * ТаблицаПериодов.ОстатокДнейПериодПо КАК Сумма
ИЗ
	ТаблицаПериодов КАК ТаблицаПериодов

См. также

Подписаться Добавить вознаграждение
Комментарии
1. Александр (AAZ) 13.05.15 09:40
за 15 дней из полного 30 дневного месяца из 100 получается 49,95, разве не ровно половина должна быть?
2. Maxim k (maxis33) 13.05.15 11:07
Главная ошибка это то, что расчет идет в днях. Для месячной ставки расчет необходимо делать в месяцах.
т.е. в расчете должно быть не 1 мес и 3 дня, а 1.1434 мес
решал подобную задачу позавчера, только для ЛЕТ а не месяцев. Количество лет получал по формуле

ВЫБРАТЬ (РАЗНОСТЬДАТ(&ДатаНачалаАренды, КОНЕЦПЕРИОДА(&ДатаНачалаАренды, ГОД), ДЕНЬ) + 1)
/ (РАЗНОСТЬДАТ(НАЧАЛОПЕРИОДА(&ДатаНачалаАренды, ГОД), КОНЕЦПЕРИОДА(&ДатаНачалаАренды, ГОД), ДЕНЬ) + 1)
+ (РАЗНОСТЬДАТ(&ДатаНачалаАренды, &ДатаОкончанияАренды, ГОД) - 1)
+ (РАЗНОСТЬДАТ(НАЧАЛОПЕРИОДА(&ДатаОкончанияАренды, ГОД), &ДатаОкончанияАренды, ДЕНЬ) + 1)
/ (РАЗНОСТЬДАТ(НАЧАЛОПЕРИОДА(&ДатаОкончанияАренды, ГОД), КОНЕЦПЕРИОДА(&ДатаОкончанияАренды, ГОД), ДЕНЬ) + 1)


для месяцев думаю по аналогии. Смысл такой:
для ДатыНачала определяем количество входящих дней в году "даты начала" и делим на количество дней в году всего, (т.е. для 01.02.2015 будет 11 месяцев, т.е. 0,9 (примерно) лет
затем прибавляем количество полных лет (РАЗНОСТЬДАТ(&ДатаНачалаАренды, &ДатаОкончанияАренды, ГОД) - 1)
затем прибавляем для даты окончания количество лет в последнем году
3. Александр (AAZ) 13.05.15 11:16
я делал среднечасовую * колвочасов = получалось точно