Bruce_yin的专栏

bw 之路

WEBI中如何取自然周的日期

比如本月第一周是11月1日-11月1日

第二周是11月2日到-11月8日

第六周是11月30日-11月30日

变量:输入日期=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")

变量1: 本月=FormatDate([系统日期-1];"MM")

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

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

变量4:第五周最后一天(判断) =If(ToNumber((7-[本月第一天是周几]+29))>[本月最后一天 (数)]) Then " " Else ([本月 ]+"月"+(7-[本月第一天是周几]+29)+"日")

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

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

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

变量8:第三周=[本月 ]+"月"+(7-[本月第一天是周几]+9)+"日"+"----"+[本月 ]+"月"+(7-[本月第一天是周几]+15)+"日"

变量9:第四周=[本月 ]+"月"+(7-[本月第一天是周几]+16)+"日"+"----"+[本月 ]+"月"+(7-[本月第一天是周几]+22)+"日"

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

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

阅读更多
版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/Bruce_yin/article/details/49945225
文章标签: BO
个人分类: BO
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

不良信息举报

WEBI中如何取自然周的日期

最多只允许输入30个字

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭