VBA宏如何编写If语句校验查询时间为过去时间防止程序崩溃

核心判断逻辑完全匹配「时间未发生则直接退出」的要求，把校验段放在数据拉取逻辑的最前端即可，从根源上避免传未来时间给网站接口导致的崩溃。

基础实现代码 #

假设你已经通过单元格/窗体控件拿到了用户选择的查询时间，直接在业务逻辑前插入以下校验段：

Sub FetchSiteHistoryData()
    ' ============== 时间校验段 放在所有数据拉取逻辑最前面 ==============
    Dim queryTime As Date
    ' 替换为你项目中实际获取用户选择时间的代码，以下为示例写法
    ' 示例1：从查询面板的B2单元格读取用户选的日期时间
    queryTime = ThisWorkbook.Sheets("查询面板").Range("B2").Value
    ' 示例2：从窗体日期时间控件取值（如果用控件的话替换上面一行即可）
    ' queryTime = UserForm1.dtpQueryTime.Value

    ' 核心判断：所选时间大于等于当前系统时间 直接退出
    If queryTime >= Now() Then
        MsgBox "仅支持查询已生成的历史数据，请不要选择未到来的时间", vbExclamation, "参数无效"
        Exit Sub
    End If
    ' ============== 校验结束 ==============

    ' 此处保留你原本从公司网站拉取数据的原有业务代码
    ' ......
End Sub

常见场景调整方案 #

• 如果你只需要按日期校验、不需要精确到时分秒（比如允许查询当天任意时段的已结班次，不允许查明天及以后的日期），把判断条件里的Now()替换为Date()即可：

  ' 仅校验日期 选今天及之前的日期都可通过
  If queryTime >= Date() Then
      MsgBox "请不要选择未来日期", vbExclamation, "参数无效"
      Exit Sub
  End If
  

• 如果你是按班次时间校验（比如次日早班的开班时间是次日8:00，只要当前时间没到这个点就算未发生），直接把判断条件里的对比值换成对应班次的开始时间变量即可，逻辑不需要改动。

内容的提问来源于stack exchange，提问作者j johns