Re: Nb de LUNDI

Posté par Machou43 le 1/9/2006 7:51:25

C'est trés simple

//** Déclaration des Variables **
i est un entier
NbLundis est un Entier
//** Tu fais une boucle entre tes deux dates **
Pour i = DateVersEntier(DateDebut) a DateVersEntier(DateFin) PAS 1
SI DateVersJoursEnLettres(EntierVersDate(i)) = "lundi" ALORS
NbLundis++
FIN

info("Entre ces deux dates, il y a " + NbLundis + " Lundis !")
FIN