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

ellen嘉 · 发表于 2014-4-27 19:11

厉害，收藏，每次都算不清天数。

banjinjiu · 发表于 2014-7-13 12:50

本帖最后由 banjinjiu 于 2014-7-13 12:52 编辑

我最喜欢：

Sub Test()
MsgBox Format$(GetLastDate(5), "YYYY-M-D") & vbCrLf & Format$(GetLastDate2(5), "YYYY-M-D")
End Sub
Private Function GetLastDate(Optional dtmLast As Integer) As Date
GetLastDate = Now + dtmLast
End Function
Private Function GetLastDate2(Optional dtmLast As Integer) As Date
GetLastDate2 = DateAdd("d", dtmLast, Now)
End Function

复制代码

使用域输入多少次？还容易出错。这只能得到对话框，怎么输入这个日期？再研究！

雨后阳光79 · 发表于 2014-10-29 18:52

都是厉害的人物呀。

wendy8146688 · 发表于 2015-4-2 11:16

能设置域代码吗？直接输入占行占空间？

andy800529 · 发表于 2015-10-19 16:49

守柔的代码执行的结果是这样啊。。。。。这好像不太对吧？

andy800529 · 发表于 2016-1-4 16:38

andy800529 发表于 2015-10-19 16:49
守柔的代码执行的结果是这样啊。。。。。这好像不太对吧？

我的错我的错，要全选刷新。。

lovejmm · 发表于 2018-5-25 06:59

终于找到，谢谢，朋友们

花马 · 发表于 2020-5-31 18:07

守柔和如意，Office 奇才，都是我的偶像，喜欢买他们的书看。

一笔书天地 · 发表于 2020-12-8 22:12

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

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

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