ล่าสุดฉันต้องคำนวณสัปดาห์ ฉันดูโค้ดสำเร็จรูปบนอินเทอร์เน็ต แต่มันไม่เหมาะสมฉันจึงต้องทำเอง
ตามค่าเริ่มต้น วันจันทร์แรกของปีจะเริ่มต้นในสัปดาห์แรก
'คำนวณวันที่เริ่มต้นของสัปดาห์แรกของปีใดปีหนึ่ง
ฟังก์ชั่นวันแรก (ปีอินพุต)
สำหรับ i=cdate(inputyear&"-1-1") ถึง cdate(inputyear&"-1-7")
ถ้า weekday(i)=2 แล้ว
วันแรก=ฉัน
ออกเพื่อ
สิ้นสุดถ้า
ต่อไป
ฟังก์ชั่นสิ้นสุด
'การคำนวณวันที่ป้อนข้อมูลเป็นฟังก์ชันของสัปดาห์ของปี
FunctionCalcWeekNo(วันที่ป้อนข้อมูล)
toyear=ปี(วันที่ใส่)
fday=วันแรก(ปี)
ถ้า datediff("d",fday,inputdate)<0 แล้ว
fday=วันแรก(ถึงปี-1)
สิ้นสุดถ้า
'calcweekno=fday
daynum=datediff("d",fday,inputdate)
calcweekno=int(วันนัม/7)+1
ฟังก์ชั่นสิ้นสุด
'คำนวณวันแรกของสัปดาห์ตามหมายเลขสัปดาห์และปี
ฟังก์ชั่น getfst (ปีอินพุต, สัปดาห์ที่)
fday=วันแรก(ปีเข้า)
getfst=dateadd("d",(weekno-1)*7,fday)
ฟังก์ชั่นสิ้นสุด