Encore une autre variante

[zenerzhul]

jour:=@Today;
pjannee:=@Date(@Year(jour);1;1);
pjsemaine:=@Adjust( pjannee ; 0 ; 0 ; -( @Weekday( pjannee ) -2 ) ; 0 ; 0 ; 0 );
"Semaine "+@Text(@Round(@Integer((@Date(jour)-pjsemaine)/86400/7))+1)

[Raziel]

Ne fonctionne pas pour les semaines à cheval (cf remarque de massilia56 surle post suivant http://www.dominoarea.org/phpBB2/viewtopic.php?t=12517)

Ce code se comporte comme la fonction format en LS avec l'option ww.
Pour plus d'infos, voici un lien :
http://www-1.ibm.com/support/docview.ws ... wg21176534

Pour rappel :
La semaine 1 d'une année est celle qui contient le 04 janvier (en d'autre terme, la semaine une est celle qui contient le premier jeudi de l'année)