:semn()
:Func
:Local smn,rst
:0->rst
:If dayOfWk(getDate()[1],1,1)
 <>1
:1->rst
:nbjr()->smn
:If mod(smn,7)<>0
:rst+1->rst
:floor(smn/7)->smn
:smn+rst->smn
:EndFunc

// quantième semaine de l'année somme nous ?