Ms Access VBA日期比较异常：为何合法输入仍触发提示？

你的代码触发错误提示的核心问题是两个变量的类型不匹配，导致比较逻辑未按日期时间的先后顺序执行：

• varStartTimestamp 通过GetCDV获取的SQL Server时间戳，大概率是字符串类型（而非Access的Date/Time类型），格式为yyyy-mm-dd hh:mm:ss.fff
• varEndTimestamp 是表单日期与时间控件相加的结果，属于Access的Date/Time类型（该类型默认仅保留到秒级精度，毫秒会被舍去）

当字符串与Date/Time类型直接比较时，VBA会自动将Date/Time类型转换为字符串，转换后的格式通常是mm/dd/yyyy hh:mm:ss（取决于系统区域设置）。此时字符串会按字符顺序逐位对比：比如你的varStartTimestamp字符串是"2023-06-05 11:53:25.063"，而varEndTimestamp转成字符串后是"06/05/2023 11:54:00"，前者首字符是2，后者是0，字符串比较会判定"06/05/2023..." < "2023-06-05..."，从而触发错误提示。

需要将两个变量统一转换为Access可识别的Date/Time类型（或统一为符合日期规则的字符串），推荐的修正代码如下：

Dim dtStartTimestamp As Date
Dim dtEndTimestamp As Date

' 将SQL Server返回的时间戳字符串转换为Date/Time类型（舍去毫秒部分，保留到秒级）
dtStartTimestamp = CDate(Split(GetCDV(OpenArgs, 2), ".")(0))

' 显式转换表单输入的日期和时间为Date/Time类型
dtEndTimestamp = CDate([txtDate]) + CDate([txtTime])

If dtEndTimestamp <= dtStartTimestamp Then
   MsgBox "您输入的日期时间必须晚于原始日期时间"
   Exit Sub
End If

如果需要毫秒级的精确比较（Access的Date/Time不支持毫秒，但可以用Double类型存储日期时间的数值表示），可以使用以下代码：

Dim dblStart As Double
Dim dblEnd As Double

' 将SQL Server时间戳转成Double类型（小数部分对应时间，含毫秒）
Dim strStart As String
strStart = GetCDV(OpenArgs, 2)
dblStart = CDate(Split(strStart, ".")(0)) + CDbl("0." & Split(strStart, ".")(1)) / 86400

' 表单输入转成Double类型
dblEnd = CDbl(CDate([txtDate]) + CDate([txtTime]))

If dblEnd <= dblStart Then
   MsgBox "您输入的日期时间必须晚于原始日期时间"
   Exit Sub
End If

• 确保GetCDV返回的时间戳格式固定为yyyy-mm-dd hh:mm:ss.fff，若格式有变化需调整Split逻辑
• 表单的txtDate和txtTime控件需设置正确格式，保证输入内容能被CDate正确识别

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