取得下一天的日期

作者：绿色风分类：时间：2022-08-18 浏览：91

楼主
monvzhilei

如何取得下一个日期，word里面要实现，难度不是一般的大。
具体代码如下：

{ SET YEAR { DATE \@"YYYY" } }
{ SET MONTH { DATE \@"M" } }
{ SET DAY { DATE \@"D" } }
{ IF { =OR( {=MOD({ YEAR },400) } =0,{=AND({ =MOD({ YEAR },4) } =0 ,{ =MOD({ YEAR },100) } <>0) } =1) } = 1 { SET TEMP 29 } { SET TEMP 28 } }
{ IF MONTH = 2 { SET X { TEMP } } { IF MONTH = 4 { SET X 30 } { IF MONTH = 6 { SET X 30 } { IF MONTH = 9 { SET X 30 } { IF MONTH = 11 { SET X 30 } { SET X 31 } } } } }}
{ SET NEXTD { = DAY +1 } }
{ IF { AND({ MONTH }=12,{ NEXTD }> X) } = 1 { SET YEAR { ={ YEAR }+1 } }}
{ IF NEXTD > X { SET MONTH {= MONTH+1 }} }
{ IF NEXTD > X { SET DAY { =NEXTD-X } } { SET DAY { NEXTD } } }
{ IF MONTH = 13 { =YEAR+1 } { YEAR } }年{ IF MONTH = 13 1 { MONTH } }月{ DAY }日

2楼
monvzhilei

补上附件，这个难度相当大的哦。
要具体看出效果。请 ctrl+A (即全选）然后按 F9.即更新
这个日期每天会变的哦。

一天后的日期.zip

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表