Ce code permet de connaître la date du Lundi d’une semaine.

PROCEDURE NumSemaineVersDateLundi ( _NumSemaine , _Année = DateSys ()[[ 1 A 4 ]])


//On calcule le Lundi de la semaine passée en paramétre.
//Si le premier jour de l'année est un vendredi, samedi ou dimanche, le numéro de semaine sera 0.
//La semaine numéro 1 correspondra au premier lundi de l'année

NbJours est un entier
d Date est une Date
n Jour est un entier

SI DateVersJour ( _Année + "0101" )  DANS ( 5 , 6 , 7 ) ALORS
        //Semaine 0
        NbJours = 7 * _NumSemaine
        
SINON
        //Semaine 1
        NbJours = 7 *( _NumSemaine - 1 )
        
FIN

d Date = EntierVersDate ( DateVersEntier ( _Année + "0101" )+ NbJours )
n Jour = DateVersJour ( d Date )
TANTQUE n Jour > 1
        d Date ..Jour-= 1
        n Jour = DateVersJour ( d Date )
FIN

RENVOYER d Date