Блин что-то мозг не соображает

есть некий платежный календарь в рамках недели. например платим по понедельникам и средам.

Как найти ближайший платежный день??
если
есть текущая дата и день недели к ней. например вторник и день недели 2.
есть текущая дата и день недели к ней. например четверг и день недели 4.

нужен запрос в цикле

"В рамках недели" это всего 7 вариантов. Проверь каждый и не выноси мозг.

э..ну разницу посчитай и минимум сделай

и не забудь проверку на конец календаря в 1С

(3) разницу дат, а не дней недели, ессно)

(0)Если вторник, то ближайший- следующая среда. Все остальное - ближайший понедельник. Если я правильно понял сабж

(2) 5

(6) нее. у контрагента календарь, где отменено, что День2 = 1 и день 4 = 1

Это не просто найти ближайший рабочий день

(6) да

Из контрагента получаем дни оплаты в виде (2,4). Получаем все даты календаря, добавляем колонку "деньНедели" (как ДеньНедели). Накладываем условие деньНедели в (2,4). По полученным дням определяем ближайшую. Дальше расписывать?

(0) минимальная неотрицательная разница по дням недели, у меня логистика примерно так же работает.

дни недели доставки привязаны к сектору в регистре сведений

(10) если не трудно. что то не пойму пипец. завтра в отпуск и мозг не соображает ;)

(11) есть 1с 7ка. какой регистр сведений вы о чем... у контрагента есть День1...День5 реквизит там 0 или 1

есть тек дата или дата минимальная от которой надо идя вперед по дням недели найти тот который у ка = 1 и опознить его датой

Функция ПолучитьБлижайшийДеньПлатежа(ВыбДата)
  День1 = 1; // понедельник - платежный день
  День2 = 3; // среда - тоже платежный день
  ВыбДеньНедели = ДеньНедели(ВыбДата);
  БлижайшийДеньПлатежа = НачалоДня(ВыбДата);
  Пока ((ВыбДеньНедели <> День1) И (ВыбДеньНедели <> День2)) Цикл
    БлижайшийДеньПлатежа = БлижайшийДеньПлатежа + 86400;
    ВыбДеньНедели = ДеньНедели(БлижайшийДеньПлатежа);
  КонецЦикла;
  Возврат БлижайшийДеньПлатежа;
КонецФункции

Не претендую на оптимальность, тупой перебор день за днем, пока не получим нужный.

могу конечно сделать дикий цикл 5*5 но хочется как-то покороче и элегантней.

(14) начало дня это что?

(16) Это 00:00:00

(13) Так это 7.7? Тогда вариант (14).

(16) Можно и без него кстати

Только он корявенький, ИМХО.

(16). Начало дня не обязательно, просто чтобы возвращалась дата со временем 0:00:00, а не непонятно что. В 7-ке код из (14) не будет работать. ДеньНедели() не уверен, что там есть. И вместо +86400 просто +1.

(21) день недели есть НомерДняНедели

перенесите ветку в семерошную, а то путають тут нас...

счасПопробую..

(20). Не спорю, что корявенький, но работать будет.

тут еще момент. у ка может быть в рамках от 1 до 5 платежных дней. т.е.

  День1 = 1;// понедельник - платежный день

  День2 = 3;// среда - тоже платежный день

дней моет быть несколько а может и не быть

(26) Я и говорю, корявенький. :)

(13) 1. Собрать дни платежа в список значений: ПлатежныеДни.
2. Получить номер дня текущей даты (не помню, как в семерке): ТекДень.
3. В ПлатежныеДни ищем первый ПлатежныйДень, который >= ТекДень. Разница = ПлатежныйДень - ТекДень.
4. Если такого нет, берем просто ПлатежныйДень = ПлатежныеДни(0). Разница = 7 - ТекДень + ПлатежныйДень.
5. ДатаПлатежа = ТекущаяДата + Разница.

Как-то так.  Писал по памяти, 7.7 нет под рукой

Функция ПолучитьБлижайшийДеньПлатежа(ВыбДата, СписокДнейОплаты)

  ВыбДеньНедели = ДеньНедели(ВыбДата);
  БлижайшийДеньПлатежа = НачалоДня(ВыбДата);
  Пока СписокДнейОплаты.Принадлежит(ВыбДеньНедели) = 0 Цикл
    БлижайшийДеньПлатежа = БлижайшийДеньПлатежа + 86400;
    ВыбДеньНедели = ДеньНедели(БлижайшийДеньПлатежа);
  КонецЦикла;
  Возврат БлижайшийДеньПлатежа;
КонецФункции

Упс. БлижайшийДеньПлатежа = БлижайшийДеньПлатежа + 1;

На входе еще желательно проверить, заполнен ли список дней оплаты.

(28) да можно в список, можно в строк

а далее например вышла строка 1,3
и в условии Если найти(СтрокаА,ВыбДеньНедели) = 0

(29) Да или так

Функция ПолучитьБлижайшийДеньПлатежа(ВыбДата, СписокДнейОплаты)

  ВыбДеньНедели = НомерДняНедели(ВыбДата);
  БлижайшийДеньПлатежа = ВыбДата;

  Пока СписокДнейОплаты.Принадлежит(ВыбДеньНедели) = 0 Цикл
    БлижайшийДеньПлатежа = БлижайшийДеньПлатежа + 1;
    ВыбДеньНедели = НомерДняНедели(БлижайшийДеньПлатежа);
  КонецЦикла;
  Возврат БлижайшийДеньПлатежа;
КонецФункции

Процедура Сформировать()
    СписокДнейОплаты = СоздатьОбъект("СписокЗначений");
    СписокДнейОплаты.ДобавитьЗначение(1);
    СписокДнейОплаты.ДобавитьЗначение(3);
    
    Сообщить(ПолучитьБлижайшийДеньПлатежа(ДатаА,СписокДнейОплаты));
КонецПроцедуры


вот . работает если кому-то надо будет

СписокДнейОплаты = СоздатьОбъект("СписокЗначений");
    СписокДнейОплаты.ДобавитьЗначение(1,"1");
    СписокДнейОплаты.ДобавитьЗначение(2,"3");
    СписокДнейОплаты.ДобавитьЗначение(3,"3");
    СписокДнейОплаты.ДобавитьЗначение(4,"1");
    СписокДнейОплаты.ДобавитьЗначение(5,"1");
    СписокДнейОплаты.ДобавитьЗначение(6,"1");
    СписокДнейОплаты.ДобавитьЗначение(7,"1");

    //ТДН - текущий день недели
    ДеньПлатежа="";
    СписокДнейОплаты.ПолучитьЗначение(ТДН,ДеньПлатежа);
    ДеньПлатежа = Число(ДеньПлатежа);

(35) Добавь проверку, что СписокДнейОплаты не пустой, а то зациклишься.

(37) мерси