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

for800

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

2005-10-25 16:04 上传

点击文件名下载附件
请问如何在WORD中自动生成7天后的日期？

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

如意

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

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

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

for800

请问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, 下载次数: 411)

2005-10-28 05:48 上传

点击文件名下载附件

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

konggs

老大就是历害！

以下加上小弟的注释，方便会员观看。老大不怪吧？

{ 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, 下载次数: 467)

2005-10-28 05:57 上传

点击文件名下载附件

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

踏雪无痕

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

cxffxc

谢谢

sailorgg

真不错,以学了一招,

谢谢!

掏宝者

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