Advertisement
Guest User

Untitled

a guest
Jun 15th, 2020
127
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.62 KB | None | 0 0
  1. Функция КоличествоПонедельниковДоКонцаГодаНаСервере(Число, Дата)
  2. Если Дата > КонецГода(ТекущаяДата()) тогда
  3. Возврат Число;
  4. Иначе
  5. Если ДеньНедели(Дата)=1 тогда
  6. КоличествоПонедельниковДоКонцаГодаНаСервере(Число+1,Дата+60*60*24);
  7. Иначе
  8. КоличествоПонедельниковДоКонцаГодаНаСервере(Число,Дата+60*60*24);
  9. КонецЕсли;
  10. КонецЕсли;
  11. КонецФункции
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement