في الآونة الأخيرة، كنت بحاجة لحساب الأسبوع، ونظرت إلى الكود الجاهز على الإنترنت، لكنه لم يكن مناسبًا، لذلك كان علي أن أفعل ذلك بنفسي.
افتراضيًا، يبدأ أول يوم اثنين من العام في الأسبوع الأول.
'احسب تاريخ البدء في الأسبوع الأول من سنة معينة
وظيفة اليوم الأول (سنة الإدخال)
من أجل i=cdate(inputyear&"-1-1") إلى cdate(inputyear&"-1-7")
إذا كان يوم الأسبوع (ط) = 2 ثم
اليوم الأول=i
الخروج ل
نهاية إذا
التالي
وظيفة النهاية
'حساب تاريخ الإدخال هو دالة الأسبوع من السنة
الدالةCalcWeekNo(تاريخ الإدخال)
toyear=السنة(تاريخ الإدخال)
fday=اليوم الأول(toyear)
إذا كان datediff("d",fday,inputdate)<0 إذن
fday=firstday(toyear-1)
نهاية إذا
'calcweekno=fday
daynum=datediff("d",fday,inputdate)
calcweekno=int(daynum/7)+1
وظيفة النهاية
'احسب اليوم الأول من الأسبوع بناءً على رقم الأسبوع والسنة
الدالة getfst(inputyear,weekno)
fday=اليوم الأول(سنة الإدخال)
getfst=dateadd("d",(weekno-1)*7,fday)
وظيفة النهاية