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

z_sz_s · 发表于 2010-3-12 16:21

解压后，复制到word文档中，总是显示2001年3月2日，如何改都不变，试了N遍都不行，还请老大指教！

z_sz_s · 发表于 2010-3-12 16:30

没有按F9，太菜了，让老大们笑话，呵呵！！

[ 本帖最后由 z_sz_s 于 2010-3-12 16:31 编辑 ]

z_sz_s · 发表于 2010-3-12 16:34

但不知，用VBA如何实现，是用DATEADD吗，还请不吝指教。

守柔 · 发表于 2010-3-12 16:56

原帖由 z_sz_s 于 2010-3-12 16:34 发表
但不知，用VBA如何实现，是用DATEADD吗，还请不吝指教。

以下两者皆可。

Option Explicit

Sub Test()
MsgBox Format$(GetLastDate(7), "YYYY-M-D") & vbCrLf & Format$(GetLastDate_2(7), "YYYY-M-D")
End Sub

Private Function GetLastDate(Optional dtmLast As Integer = 7) As Date
GetLastDate = Now + dtmLast
End Function

Private Function GetLastDate_2(Optional dtmLast As Integer = 7) As Date
GetLastDate_2 = DateAdd("d", dtmLast, Now)
End Function

[ 本帖最后由守柔于 2010-3-13 06:54 编辑 ]

gentjgf · 发表于 2010-7-20 14:21

只能说两个字“佩服”。

a120607970 · 发表于 2011-5-25 06:31

学习了，高手呀。

linzhongzhou · 发表于 2011-7-26 12:07

又学习了，大家你一点一点的就教了很多东西啊。

我在故我思 · 发表于 2011-8-30 15:39

厉害，学习

lxmorrin · 发表于 2011-11-9 12:01

小弟是个初学者，我也手痒验算了一下前辈们的成果~~~~这个公式因为前辈们只是超30或31天加一月，超12月加1年，所以这公式只能最大推迟30天，我估计如果要弄一个推迟30天以上的公式，估计这个就更麻烦一点了

doctormb · 发表于 2012-4-10 13:30

受教了，谢谢EH的高手们！

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

[已解决] 请问如何在WORD中自动生成7天后的日期？

怎么试都不行呀！

可以了，可以了

虽说，此种方法复杂一些，但逻辑关系清楚，一目了然。

评分

学习了，高手呀。