Интервалы Зима/Лето для даты документа

@start_kmv · Регистрация: 27.04.2014

Author24 — интернет-сервис помощи студентам

Доброго времени суток. есть задачка.
в самописной конфе по учету ГСМ есть расчет РасходПоНорме.
раньше учитывалась одна норма, теперь введены нормы - зима и лето.
проблема вот в чем - не могу найти интервалы дат, а именно, интервал Зима = с 01.12 (без учета года) по 15.03 (без учета года). интервал Лето = с 16.03 (без учета года) по 30.11 (без учета года).
задача вот в чем. нужно, чтобы код проверял, чему равна дата документа (без учета года) и выполнял расчеты вот с таким условием: если Дата документа находится в интервале Зима, то выполняем условие1,
если Дата документа находится в интервале Лето, то выполняем условие 2
вот, что получилось написать в коде:

1C

Процедура СпидомВПаркПриИзменении(Элемент)
    Объект.Пробег=Объект.СпидомВПарк-Объект.СпидомВыезд;
    //Расход по норме
    ДатаПутЛиста = Объект.Дата;
    Г = Год(ДатаПутЛиста);
    М = Месяц(ДатаПутЛиста);
    Д = День(ДатаПутЛиста);
    
    Зима = '';
    Лето = '';
    Если Д >= 01 и М >= 12 Тогда
        Зима = ДобавитьМесяц(Зима, 4);
    КонецЕсли;
    
    
    Объект.РасходПоНорме=Окр(Объект.НормаЛето*Объект.Пробег/100);
КонецПроцедуры

сам код недоработан, потому что не пойму, как вычислить этот интервал.
подскажите пож-та.

Tklwegsd · 11.02.2016, 19:03

Тупо, что приходит в голову:
1) все сравниваемые даты привести к одному году (например 0001),
2) периоды, к которым проверятся принадлежность даты, разбить дополнительно на "подпериоды" до 01.01 и после.
3) проверить дату на принадлежность полученным периодам простым сравнением.

@wwall · 11.02.2016, 21:03

Периодический регистр и срез последних - не спасет?

@start_kmv · 12.02.2016, 08:57 **[ТС]**

wwall, нет конечно. это дальше в дебри.
Tklwegsd, если не сложно, можете показать куском кода?

@wwall · 12.02.2016, 09:00

1C

Функция ЭтоЛето(Дата)
  Возврат Дата=> Дата(Год(ТекущаДата()),03,16) и Дата <= Дата(Год(ТекущаДата()),11,30)
КонецФуникции
 
Функция ЭтоЗима(Дата)
 Возврат не ЭтоЛето(Дата)
КонецФункции

не проверял, но логика такая

Tklwegsd 844 / 607 / 211 Регистрация: 24.07.2013 Сообщений: 2,102
	11.02.2016, 19:03	2
	Тупо, что приходит в голову: 1) все сравниваемые даты привести к одному году (например 0001), 2) периоды, к которым проверятся принадлежность даты, разбить дополнительно на "подпериоды" до 01.01 и после. 3) проверить дату на принадлежность полученным периодам простым сравнением. 0

@wwall 213 / 206 / 15 Регистрация: 29.05.2014 Сообщений: 1,061
	11.02.2016, 21:03	3
	Периодический регистр и срез последних - не спасет? 0

@start_kmv 3 / 3 / 3 Регистрация: 27.04.2014 Сообщений: 230
	12.02.2016, 08:57 [ТС]	4
	wwall, нет конечно. это дальше в дебри. Tklwegsd, если не сложно, можете показать куском кода? 0

	12.02.2016, 09:00