Récemment, j'ai eu besoin de calculer la semaine. J'ai regardé le code prêt à l'emploi sur Internet, mais il ne convenait pas, j'ai donc dû le faire moi-même.
Par défaut, le premier lundi de l'année commence la première semaine.
'Calculer la date de début de la première semaine d'une certaine année
fonction premier jour (année d'entrée)
pour i=cdate(inputyear&"-1-1") à cdate(inputyear&"-1-7")
si jour de la semaine(i)=2 alors
premier jour = je
sortie pour
finir si
suivant
fonction de fin
'Calculer la date de saisie est fonction de la semaine de l'année
FonctionCalcWeekNo (InputDate)
toyear = année (date d'entrée)
fday = premier jour (à l'année)
si datediff("d",fday,inputdate)<0 alors
fday=firstday(toyear-1)
finir si
'calcweekno=fjour
daynum=dateiff("d",fday,inputdate)
calcweekno=int(journum/7)+1
fonction de fin
'Calculer le premier jour de la semaine en fonction du numéro de la semaine et de l'année
fonction getfst (année d'entrée, numéro de semaine)
fday = premier jour (année d'entrée)
getfst=dateadd("j",(weekno-1)*7,fday)
fonction de fin