VBA时间限制代码修改

baojun026

师傅，帮忙看看以下代码，日期输入2025年以后的都可以（如2025-01-10就没有问题），但是输入2024年当前日期之后的都会提示已过期，帮忙看看是哪里的问题？谢谢！

1. Private Sub Workbook_Open()
   
2. Application.ScreenUpdating = False
   
3. Application.Visible = False
   
4.     If Date >= "2024-12-05" Then
   
5.         Application.DisplayAlerts = False
   
6.         MsgBox "已过期"
   
7.         With ThisWorkbook
   
8.            .Saved = True
   
9.            .ChangeFileAccess xlReadOnly
   
10.             Kill .FullName
    
11.            .Close
    
12.         End With
    
13.     End If
    
14. UserForm1.Show
    
15. End Sub

复制代码

约定的童话

Dim t As Date
    t = "2024-12-05"
    If Date >= t Then
定义下日期类型

quqiyuan

If Date >= "2024-12-05" Then
改成试试
If Date >= DateSerial(2024, 12, 5) Then