Vor kurzem hatte ich das Bedürfnis, die Woche zu berechnen. Ich habe mir den vorgefertigten Code im Internet angesehen, aber er war nicht geeignet, also musste ich es selbst tun.
Standardmäßig beginnt die erste Woche am ersten Montag des Jahres.
„Berechnen Sie das Startdatum der ersten Woche eines bestimmten Jahres.“
Funktion erster Tag (Eingabejahr)
für i=cdate(inputyear&"-1-1") bis cdate(inputyear&"-1-7")
wenn Wochentag(i)=2 dann
erster Tag=i
Ausgang für
Ende wenn
nächste
Endfunktion
'Berechnen Sie das Eingabedatum als Funktion der Woche des Jahres
FunctionCalcWeekNo(InputDate)
toyear=year(Eingabedatum)
fday=firstday(toyear)
wenn datediff("d",fday,inputdate)<0 dann
fday=firstday(toyear-1)
Ende wenn
'calcweekno=fday
daynum=datediff("d",fday,inputdate)
calcweekno=int(daynum/7)+1
Endfunktion
„Berechnen Sie den ersten Tag der Woche anhand der Wochennummer und des Jahres.“
Funktion getfst(inputyear,weekno)
fday=firstday(inputyear)
getfst=dateadd("d",(weekno-1)*7,fday)
Endfunktion