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

见附件，请问如何在WORD中，在自动生成当前日期，能否自动生成7天后的日期？谢谢！！ wgCUY3r0.rar (2.77 KB)

[此贴子已经被作者于2005-10-25 16:04:44编辑过]

呵呵，我本来已经写好了一个域来实现，发上来后才发现不对。日期不同于普通的数据，超过30（或31）就要算下月1日，因此赶快把我发的写了域的帖子删了。

你这个要求我看只能用VBA来进行判断实现了。

等等守柔吧，他现在没空，迟些他会上网的。

请问WORD有什么函数？

WORD中称为域，请将以下域代码在文档中正确录入。

当然，使用VBA非常非常简单，我还是做了一个域，很烦，但很高兴。

请大家测试！

域代码为: { SET YEAR { DATE \@"YYYY" } }

{ SET MONTH { DATE \@"M" } }

{ SET DAY { DATE \@"D" } }

{ IF { =MOD({ YEAR },4) } = 0 { 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 }日

请使用ALT+F9切换域代码与域结果，或者全选SHIFT+F9进行切换。

日期如果人为调整后，请全选这些域，按下F9进行更新

2005-10-28修正域代码中不合理部分

igbXeygW.rar (8.03 KB)

[此贴子已经被作者于2005-10-28 5:49:08编辑过]

老大就是历害！以下加上小弟的注释，方便会员观看。老大不怪吧？{ SET YEAR { DATE \@"YYYY" } }'设置year为现在的年份{ SET MONTH { DATE \@"M" } }'设置month为现在的月{ SET DAY { DATE \@"D" } }'设置day为现在的日（当天，现在）{ IF { =MOD({ YEAR },4) } = 0 { SET TEMP 29 } { SET TEMP 28 }}'取得闰年2月份的最后一天。如果本年是闰年，则二月份为29天，否则，为28天。（此处即设置temp为29或28天）{ 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 } } } }} '如果月份是4,6,9,11则设置X为30。否则为31{ 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 } } } }}} '如果月份是2月份，则书签x等于temp。就是上面的temp(29或28)。'否则，如果是4、6、9、11则书签x等于30，除此以外，书签x等于31天。'此处的x就是当月的天数{ SET NEXTD { = DAY +7 } }'日期+7天同时，定义书签nextd。'下面，在求年(year)、月(month)、日(month)三个数(即所定这三个书签)。{ IF { AND({ MONTH }=12,{ NEXTD }> X) } = 1 { SET YEAR { ={ YEAR }+1 } }}'如果是12月份,并且七天后的值超过最后日期的话,则进入下一年的一月份 '如果月份为12月，同时，加7天后大则当月的天数，则书签year重新定义为当年加1的年，即第二年。{ IF NEXTD > X { SET MONTH {= MONTH+1 }} { MONTH }} '如果加7天后的天数(nextd)大于这个月的总天数（x），则月份(month)加1，即进到下一个月。{ IF NEXTD > X { SET DAY { =NEXTD-X } } { SET DAY { NEXTD } } } '如果加7天后的天数(nextd)，则此时书签（day）＝天数（day）为7天数的天数减去当月的天数，如果不大于（说明过7天后，还在本月），则不变。注：此处“不变”，可否略啊？老大！

[此贴子已经被作者于2005-10-26 10:36:29编辑过]

更正几点：

关于闰年

在公历（格里历）纪年中，有闰日的年份叫闰年，一般年份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值了。

rwZMTZGS.rar (8.68 KB)

[此贴子已经被作者于2005-10-28 5:57:58编辑过]

哇......，厉害！一个域都做的如此漂亮，和编程序差不多了。

谢谢

真不错,以学了一招,

谢谢!

在各位大师面前，只能说两个字“佩服”。

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

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

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

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

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

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

对于你的提问，我认为：

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

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

 

document.body.clientWidth*0.5) {this.resized=true;this.width=document.body.clientWidth*0.5;this.style.cursor='pointer';} else {this.onclick=null}" alt="" />

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

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

document.body.clientWidth*0.5) {this.resized=true;this.width=document.body.clientWidth*0.5;this.style.cursor='pointer';} else {this.onclick=null}" alt="" />

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

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

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

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

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

谢谢CHEN的交流，请继续。

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

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

版主高啊。

值得学习

好象不对

 

document.body.clientWidth*0.5) {this.resized=true;this.width=document.body.clientWidth*0.5;this.style.cursor='pointer';} else {this.onclick=null}" alt="" />

高手就是高手

两个字“佩服”。比编程复杂了.

原来WORD也能计算,谢谢LZ分享

全选文档，按F9刷新。

敬意！
先辈那句“路漫漫其修远兮”太有理了

域还可以这样写的？以前就只知道ALT+f9切换什么的。

佩服。

为什么附件中找不到那些域代码？如set之类的。

学习中。