一个难度比较高的域的用法，不知是否可以实现？

andy800529 · 发表于 2015-11-21 21:48

我希望在域中显示的日期是距离当前最近的周一的日期。
比如今天是11月21日，周一是11月23日。那么我希望日期显示为2015年11月23日。
如果今天是11月28日，那么我希望显示的日子是2015年11月30日。
不知道通过域能否做出如此复杂的日期上的逻辑判断？
office博大精深，关于域的内容就已经让我学无止境了。
不知道是否有高人可以对此问题解答？

kqbt · 发表于 2015-11-25 22:11

可以实现的，不过有些费劲。建议参考：
[已解决] 请问如何在WORD中自动生成7天后的日期？
http://club.excelhome.net/thread-129784-1-1.html

andy800529 · 发表于 2015-11-26 15:17

本帖最后由 andy800529 于 2015-11-26 15:22 编辑

kqbt 发表于 2015-11-25 22:11
可以实现的，不过有些费劲。建议参考：
[已解决] 请问如何在WORD中自动生成7天后的日期？
http://club.ex ...

守柔那个文档最后的结果好像是错的。反正他的附件当中我没有看到满意的结果吧。那个帖子最后的回复是我给出的。

kqbt · 发表于 2015-11-26 20:36

本帖最后由 kqbt 于 2015-11-26 20:37 编辑

andy800529 发表于 2015-11-26 15:17
守柔那个文档最后的结果好像是错的。反正他的附件当中我没有看到满意的结果吧。那个帖子最后的回复是我给 ...

全选所有域代码再按 F9键更新看看结果对不对？

andy800529 · 发表于 2015-11-26 21:36

kqbt 发表于 2015-11-26 20:36
全选所有域代码再按 F9键更新看看结果对不对？

有点意思，我要好好研究一下。

kqbt · 发表于 2015-11-26 21:44

andy800529 发表于 2015-11-26 21:36
有点意思，我要好好研究一下。

把这个代码理看透，实现期望的效果就轻松了。

zhanglei1371 · 发表于 2015-11-26 22:33

的确是很有难度。不过守柔的那个日期代码确实不完美。不过也不像你说的那般不济。
我曾经测试过加上一年的日期。在大约加了3、4个月左右好像就会出错。不过两个月以内的±日期都是正确的。
对于你的需求，我对守柔的域代码稍作修改，如下：
{ SET YEAR { DATE \@"YYYY" } }{ SET YEAR { DATE \@"YYYY" } }{ SET MONTH { DATE \@"M" } }{ SET DAY { DATE \@"D" } }{ IF { =MOD({ YEAR },4) } = 0 { 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 } } } } } }{ if { =8 - { quote "一九八五年九月{DATE \@ "W" }日" \@d } } = 1 { SET NEXTD { DAY } } { SET NEXTD { = DAY + { =8 - { quote "一九八五年九月{DATE \@ "W" }日" \@d } } } } }{ 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 }日
如今天是2015年11月24日,则生成2015年11月30日
360截图20151124222259656.jpg

最近的周一.zip (6.14 KB, 下载次数: 24)

kqbt · 发表于 2015-11-27 20:33

{ if { =8 - { quote "一九八五年九月{DATE \@ "W" }日" \@d } } = 1 { SET NEXTD { DAY } } { SET NEXTD { = DAY + { =8 - { quote "一九八五年九月{DATE \@ "W" }日" \@d } } } } }

这个很精妙呀！如果脱离了这个思路，可能需要走很多弯路。谢谢分享！！！

andy800529 · 发表于 2015-12-1 23:51

zhanglei1371 发表于 2015-11-26 22:33
的确是很有难度。不过守柔的那个日期代码确实不完美。不过也不像你说的那般不济。
我曾经测试过加上一年的 ...

牛逼死了，你居然真的做出来了！！
这个需求在我很多年前就有了，我一直不知道该怎么做。甚至也不得而知可以做出来！
非常感谢。必须要好好学习学习。因为我还有更多的需求。。。

andy800529 · 发表于 2016-1-4 10:43

zhanglei1371 发表于 2015-11-26 22:33
的确是很有难度。不过守柔的那个日期代码确实不完美。不过也不像你说的那般不济。
我曾经测试过加上一年的 ...

其实主要是一开始我不知道要全选。。应该不是不济的问题，是我的错，我的问题。

		自动登录	找回密码
密码			免费注册

[求助] 一个难度比较高的域的用法，不知是否可以实现？

评分