请问如何在WORD中自动生成7天后的日期？

wen24319

[em17][em17][em17][em17][em17][em17]

chenhuafu

QUOTE:

以下是引用守柔在2005-10-26 11:08:24的发言：

更正几点：

关于闰年

在公历（格里历）纪年中，有闰日的年份叫闰年，一般年份365天，闰年为366天。由于地球绕太阳运行周期为365天5小时48分46秒（合365.24219天）即一回归年，公历把一年定为365天。所余下的时间约为四年累计一天，加在二月里，所以平常年份每年365天，二月为28天，闰年为366天，二月为29天。因此，每400年中有97个闰年，闰年在2月末增加一天，闰年366天。 闰年的计算方法：公元纪年的年数可以被四整除，即为闰年；被100整除而不能被400整除为平年；被100整除也可被400整除的为闰年。如2000年是闰年，而1900年不是。

以下代码修正了关于2月份最后一天的计算（三楼的代码是近算）

域代码为: { 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 } }'取得闰年2月份的最后一天

{ 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 +7 } }'日期+7天

{ IF { AND({ MONTH }=12,{ NEXTD }> X) } = 1 { SET YEAR { ={ YEAR }+1 } }}'如果是12月份,并且七天后的值超过最后日期的话,则进入下一年的一月份

{ IF NEXTD > X { SET MONTH {= MONTH+1 }} }

{ IF NEXTD > X { SET DAY { =NEXTD-X } } { SET DAY { NEXTD } } }

现在日期:

{ DATE \@"YYYY'年'M'月'D'日'" }

七天后的日期:

{ IF MONTH = 13 { =YEAR+1 } { YEAR } }年{ IF MONTH = 13 1 { MONTH }  }月{ DAY }日

TO KONGGS

你的注释很正确，但

“如果加7天后的天数(nextd)，则此时书签（day）＝天数（day）为7天数的天数减去当月的天数，如果不大于（说明过7天后，还在本月），则不变。
注：此处“不变”，可否略啊？老大！”不能省略，因为这时的day应为nextd值，也就是在原来天数的值上再加7，就是这是nextd值了。

OqzRxRbY.rar (5.68 KB, 下载次数: 227)

2006-8-31 02:44 上传

点击文件名下载附件

最后经过测试，守柔版主的域代码并没有错误，是我录入有一点错误导致的。但用上面的代码也能定义NEXTD，但复杂一点了。

[此贴子已经被作者于2006-8-31 2:48:10编辑过]

chenhuafu

首柔此帖教会了我很多有关域的知识，非常感谢啊！

chenhuafu

可以说，守柔版主的域造诣很深，已经可以用域来编程了。上面的代码不能一个一个单独地显示和使用，他们是一个有机的统一体，一环扣一环，任何环节出现一点点错误，最终都达不到预期的目标。所以我在按照版主的代码正确录入，但是结果的  DAY  出错，检查了很久，发现在 set NEXTD 的计算上出错。最后通过多次的试验，把他改正过来，终于成功调试了。

c81

chenhuafu好认真呀。学习中...

sylun

结果不是一样的吗？另，12楼附件中对年份判断设置Temp值的域代码好像通不过

守柔

QUOTE:

以下是引用chenhuafu在2006-8-30 21:31:18的发言：
可以说，守柔版主的域造诣很深，已经可以用域来编程了。上面的代码不能一个一个单独地显示和使用，他们是一个有机的统一体，一环扣一环，任何环节出现一点点错误，最终都达不到预期的目标。所以我在按照版主的代码正确录入，但是结果的  DAY  出错，检查了很久，发现在 set NEXTD 的计算上出错。最后通过多次的试验，把他改正过来，终于成功调试了。

对于chenhuafu兄的认真，我非常高兴。

对于你的提问，我认为：

1：{ DAY } 是正确的写法，DAY是一种简写，如果在域代码中，它能够识别的话。

我测试了一下附件，能通过，为了清晰起见，见下图：

 

2：假设您的测试是成功的，那么，我认为，不仅应该在此处出错，在之前应该会出错，在本段域代码的上一段即会出错。因为该段域代码中的写法也不规范。

以下图片为REF域简写测试，请CHEN兄确定您的Word中是否正确？

3：我为什么会发现可以这样写？

这之间，我一直以{ DAY}的方式进行REF域的引用，但在判断本月最后一天时的最初写法时，发现超过20个域代码了（嵌套域极限了），故试着用此法，竟然没有问题。

4：能告诉我您的系统配置吗？

5：请上传您错误时截图。

6：请修改您在WORD版中小字报上对守柔的ID称呼，我很遗憾您的草率。

谢谢CHEN的交流，请继续。

chenhuafu

版主，我已经重新测试，是由于我的草率导致的错误。我已经在12楼更新了。我的配置是采用 winxp + word 2003,今天（应该是昨天）一直学习你的很多篇有关域的帖子，懂得很多以前未曾学过的知识，谢谢您！

lyb200

终于对域有了一定的了解，谢谢

andysky

版主高啊。