Недавно у меня возникла необходимость посчитать неделю. Я посмотрел готовый код в Интернете, но он не подошел, поэтому пришлось делать это самому.
По умолчанию первая неделя начинается с первого понедельника года.
'Рассчитать дату начала первой недели определенного года
функция firstday(inputyear)
от i=cdate(inputyear&"-1-1") до cdate(inputyear&"-1-7")
если день недели(i)=2, то
первый день = я
выход для
конец, если
следующий
конечная функция
'Рассчитать входную дату как функцию недели года
ФункцияCalcWeekNo(InputDate)
toyear=год(входная дата)
fday=первый день(год)
если dateiff("d",fday,inputdate)<0 тогда
fday=первыйдень(год-1)
конец, если
'calcweekno=пятница
daynum=datediff("d",fday,inputdate)
Calcweekno=int(daynum/7)+1
конечная функция
'Рассчитать первый день недели на основе номера недели и года
функция getfst(входной год,номер недели)
fday=первый день(входной год)
getfst=dateadd("д",(неделя-1)*7,пятница)
конечная функция