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 带格式]
版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 举报，一经查实，本站将立刻删除。
如需转载请保留出处：https://bianchenghao.cn/bian-cheng-ji-chu/101732.html