//Renvoie le nombre de jours ouvrés à partir d'une date
PROCEDURE GetNbJourOuvre(d est une Date)

Calc_nbJourOuvre est un entier
NumSemaine est un entier
Dtemp est une Date=d
cle est une chaîne

Numsemaine=NuméroDeSemaine(d)
//On définit par nature 5 jours ouvrés par semaine
Calc_nbJourOuvre=5*NumSemaine
//On soustrait à ces jours ouvrés les jours ouvrés postérieurs à la date mais appartenant à la semaine (samedi/dimanche non inclus)
Dtemp..Jour++
TANTQUE NuméroDeSemaine(d) = NuméroDeSemaine(Dtemp) ET DateVersJour(Dtemp)<6
	Calc_nbJourOuvre--
	Dtemp..Jour++
FIN
//On retire maintenant tous les jours fériés inférieurs à cette date
HDésactiveFiltre(JOURFER)
cle=HFiltre(JOURFER,"Mois<='"+d..Mois+"'")
HLitPremier(JOURFER,cle)
TANTQUE PAS HEnDehors(JOURFER)
	SI JOURFER.Mois=d..Mois ET JOURFER.Jour>d..Jour ALORS HLitSuivant(JOURFER,cle)
	Calc_nbJourOuvre--
	
	HLitSuivant(JOURFER,cle)
FIN
HDésactiveFiltre(JOURFER)


RENVOYER Calc_nbJourOuvre


//Code affecté au bouton permettant le test
TANTQUE Vrai
	NbJour est un entier=GetNbJourOuvre(DateSys())
FIN