本周（自然周） weibi上如何实现

01 输入日期 = CurrentDate()

02 上月第一天 = If ((ToNumber(FormatDate([01 输入日期];"MM"))-1)<=9) Then (ToDate(FormatDate([01 输入日期];"yyyy")+"0"+(ToNumber(FormatDate([01 输入日期];"MM"))-1)+"01";"yyyyMMdd")) Else (ToDate(FormatDate([01 输入日期];"yyyy")+(ToNumber(FormatDate([01 输入日期];"MM"))-1)+"01";"yyyyMMdd"))

03 上月最后一天 = LastDayOfMonth([02 上月第一天])

04 系统日期-1 = If  DayNumberOfMonth([01 输入日期]) = 1 Then([03 上月最后一天]) Else ToDate(FormatDate([01 输入日期];"yyyy")+"-"+FormatDate([01 输入日期];"MM")+"-"+(DayNumberOfMonth([01 输入日期]) -1);"yyyy-MM-dd")

05 本月有几天 = DayNumberOfMonth([04 系统日期-1]) 

06 跨月的系统日期-8  = ToNumber(FormatDate(LastDayOfMonth([03 上月最后一天]);"dd")) - 6 + [05 本月有几天]

07 不跨月的系统日期-8 =[05 本月有几天]-6

08 系统日期-1 带格式 =FormatDate([04 系统日期-1];"MM")+"月"+ FormatDate([04 系统日期-1];"dd")+"日"

09 系统日期-8带格式（跨月） =FormatDate([02 上月第一天];"MM")+"月"+ [06 跨月的系统日期-8]+"日"

10 系统日期-8 带格式（不跨月） =FormatDate([04 系统日期-1];"MM")+"月"+ [07 不跨月的系统日期-8]+"日"

11 本周 =  (If [05 本月有几天]<7 Then [09 系统日期-8带格式（跨月）] Else [10 系统日期-8 带格式（不跨月）]) + "--" + [08 系统日期-1 带格式]