WEBI上取月的整周

变量：输入日期=CurrentDate()

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

变量： 上月最后一天=LastDayOfMonth([上月第一天])

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

变量2：本月第一天是周几=ToNumber(DayNumberOfWeek(ToDate(FormatDate([系统日期-1];"yyyyMM")+"01";"yyyyMMdd")))

变量： 本月第一天 = ToDate(FormatDate([系统日期-1];"yyyyMM")+"01";"yyyyMMdd")

变量 ：本月第一天之周一 =FormatDate(RelativeDate([本月第一天];-[本月第一天是周几]+1); "MM") +"月" +FormatDate(RelativeDate([本月第一天];-[本月第一天是周几]+1); "dd") +"日----"

变量：本月最后一天：=ToNumber(FormatDate(LastDayOfMonth([系统日期-1]);"dd"))

变量：本月最后一天是周几

=ToNumber(DayNumberOfWeek(ToDate(FormatDate([系统日期-1];"yyyyMM")+ToNumber(FormatDate(LastDayOfMonth([系统日期-1]);"dd"));"yyyyMMdd")))

变量：本月最后一天之周末

=FormatDate(RelativeDate([本月最后一天];7-[本月最后一天是周几]); "MM") +"月" +FormatDate(RelativeDate([本月最后一天];7-[本月最后一天是周几]); "dd") +"日"

第一周第一天

= If [本月第一天是周几] = 1 Then ([本月]+"月"+"1日----") Else ([本月第一天之周一])

第一周: =[第一周第一天] +[本月]+"月"+(7-[本月第一天是周几]+1)+"日"

第二周

第五周最后一天（判断） = If(ToNumber((7-[本月第一天是周几]+29))>[本月最后一天 (数）]) Then "[本月最后一天之周末]" Else ([本月]+"月"+(7-[本月第一天是周几]+29)+"日")

第六周最后一天（判断）= If(ToNumber((7-[本月第一天是周几]+30))>[本月最后一天 (数）]) Then " " Else [本月最后一天之周末]

第五周： =If(ToNumber((7-[本月第一天是周几]+23))>[本月最后一天 (数）]) Then " " Else( ([本月]+"月"+(7-[本月第一天是周几]+23)+"日----")+[第五周最后一天（判断） ])

第六周 =If(ToNumber((7-[本月第一天是周几]+30))>[本月最后一天 (数）]) Then " " Else( ([本月]+"月"+(7-[本月第一天是周几]+30)+"日----")+[第六周最后一天（判断）])