怎么使日期最后一天加1时，相应的月份加1？

向上学习 · 发表于 2018-8-7 17:30

Sub CommandButton1_click()
[a1] = IIf([a1] = "", Date, DateSerial(Year([a1]), Month([a1]), Day([a1]) + 1))
End Sub

zjdh · 发表于 2018-8-7 17:55

你这语句可以实现啊！

向上学习 · 发表于 2018-8-8 22:09

zjdh 发表于 2018-8-7 17:55
你这语句可以实现啊！

不行啊，我试了，比如7月，到31号的时候，再加1的时候是7月1日，不是8月1日

liulang0808 · 发表于 2018-8-8 22:16

cdate("2018-7-31")+1

向上学习 · 发表于 2018-8-8 22:19

liulang0808 发表于 2018-8-8 22:16
cdate("2018-7-31")+1

这一句应该加到那里，完整的代码是什么版主，新手，不太懂

qingc0221 · 发表于 2018-8-8 22:40

复制代码

liulang0808 · 发表于 2018-8-8 23:02

向上学习发表于 2018-8-8 22:19
这一句应该加到那里，完整的代码是什么版主，新手，不太懂

[a1]=cdate("2018-7-31")+1

huang1314wei · 发表于 2018-8-9 08:11

你的代码写的没有问题的

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

[求助] 怎么使日期最后一天加1时，相应的月份加1？