1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
|
nNbJourTotal est entier
nResteEnJour est entier
nDuréeEnSemaine est entier
sDuréeSemaineJour est chaine
sSemainePluriel est chaine
sJourPluriel est chaine
sDuréeSemaineJour="%1 Semaine%2 et %3 Jour%4" //%1 sera le nb de semaines, %3 le nb de jours %3 et %4 permettrons d'ajouter ou non un "s"
nNbJourTotal = DateDifférence(SAI_DDR, DateDuJour())
nResteEnJour = Modulo(nNbJourTotal,7)
nDuréeEnSemaine = (nNbJourTotal-nResteEnJour)/7
SI nResteEnJour>1 ALORS
sJourPluriel="s"
SINON
sJourPluriel=""
FIN
SI nDuréeEnSemaine>1 ALORS
sSemainePluriel="s"
SINON
sSemainePluriel=""
FIN
sDuréeSemaineJour=ChaineConstruit(sDuréeSemaineJour,nDuréeEnSemaine,sSemainePluriel,nResteEnJour, sJourPluriel) |
Partager