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

z_sz_s

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

z_sz_s

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

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

z_sz_s

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

守柔

原帖由 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

只能说两个字“佩服”。

a120607970

学习了，高手呀。

linzhongzhou

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

我在故我思

厉害 ，学习

lxmorrin

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

doctormb

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