vba时间问题如何解决

a963 · 发表于 2024-4-3 09:44

我写了一段代码，目的是强制使用者定期下载最新版本，为何会在今天就触发呢？该如何修改？多谢大侠指点

Private Sub Workbook_Open()
If Date >= "2024-04-30" Then

MsgBox "文件已过期，请重新下载"
   With ThisWorkbook
   .Saved = True
   .ChangeFileAccess xlReadOnly
   Kill .FullName
   Application.Quit
   End With
End If

End Sub

无敌小猪猪 · 发表于 2024-4-3 10:36

我这边测试了下没啥问题

a963 · 发表于 2024-4-3 10:51

无敌小猪猪发表于 2024-4-3 10:36
我这边测试了下没啥问题

我也检查了系统设置，今天是2024年4月3日，不知为啥运行就执行删除

yang央 · 发表于 2024-4-3 11:16

把引号换成#

lisongmei · 发表于 2024-4-3 11:26

时间改成这样试试： #2024/4/3#

a963 · 发表于 2024-4-3 11:30

yang央发表于 2024-4-3 11:16
把引号换成#

试了一下，果然正常了，谢谢您

micch · 发表于 2024-4-3 11:31

"2024-04-30" 这个是文本，date永远不会大于文本，注意数据格式

a963 · 发表于 2024-4-3 13:11

micch 发表于 2024-4-3 11:31
"2024-04-30" 这个是文本，date永远不会大于文本，注意数据格式

我发现Date >= "2024-04-30"在有的电脑上可以执行，有的不行。

perfect131 · 发表于 2024-4-3 13:26

本帖最后由 perfect131 于 2024-4-3 13:33 编辑

这个跟运算符两边的数据格式有关
只要统一两边格式就能正常比较了

perfect131 · 发表于 2024-4-3 13:30

a963 发表于 2024-4-3 13:11
我发现Date >= "2024-04-30"在有的电脑上可以执行，有的不行。

有的电脑可以那估计是他们电脑系统短日期日期格式是 yyyy-mm-dd

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

[求助] vba时间问题如何解决