VB.NET中24小时制时间比较方法及Access数据库预约时间筛选异常问题解决

这个问题我之前在对接Access数据库的时候也踩过坑，咱们一步步来理清楚问题出在哪，再给你解决办法～

问题根源 #

你当前的写法里，直接把VB.NET的Now拼进SQL语句，生成的是包含当前日期+时间的字符串（比如#2024-05-20 14:16:00#）。而Access里存储的纯时间字段（比如15:00），底层会自动补一个默认日期1899-12-30，也就是说实际存储的是1899-12-30 15:00:00。

这种情况下的时间比较会出现两个问题：

1. 今天的过期预约（比如14:15）：如果你的AppointmentTime是字符串类型，Access会按字符串规则比较（格式稍有差异就会出错）；如果是Date/Time类型，1899-12-30 14:15:00和2024-05-20 14:16:00比较时，日期部分差距太大，反而可能出现逻辑判断错误；
2. 未来日期的预约（比如明天10:00）：会被错误排除，因为1899-12-30 10:00:00远小于当前日期时间，不符合你的“显示所有未来预约”需求。

解决方案 #

方案1：组合日期+时间字段整体比较（推荐） #

最稳妥的方式是把AppointmentDate和AppointmentTime合并成一个完整的DateTime，再和当前时间比较。Access支持直接相加Date/Time类型的字段：

' 先获取当前完整时间，统一格式避免歧义
Dim currentFullTime As DateTime = Now
SQLText &= " AND (P.AppointmentDate + P.AppointmentTime >= #" & currentFullTime.ToString("yyyy-MM-dd HH:mm:ss") & "#)"

' 如果AppointmentTime是字符串类型，需要先转换为Date/Time
' SQLText &= " AND (P.AppointmentDate + CDate(P.AppointmentTime) >= #" & currentFullTime.ToString("yyyy-MM-dd HH:mm:ss") & "#)"

方案2：分条件判断（更直观） #

如果你不想组合字段，可以拆成两种情况筛选：要么预约日期在今天之后，要么预约日期是今天且时间晚于当前时间：

Dim todayDate As DateTime = Date.Today
Dim currentOnlyTime As DateTime = Now.TimeOfDay ' 只取时间部分，底层日期自动为1899-12-30，和Access的纯时间存储匹配

SQLText &= " AND ("
SQLText &= "    P.AppointmentDate > #" & todayDate.ToString("yyyy-MM-dd") & "#"
SQLText &= "    OR (P.AppointmentDate = #" & todayDate.ToString("yyyy-MM-dd") & "# AND P.AppointmentTime >= #" & currentOnlyTime.ToString("HH:mm:ss") & "#)"
SQLText &= ")"

重要提醒：避免SQL注入风险 #

你当前直接拼接变量到SQL的做法存在安全隐患，强烈建议改用参数化查询，不仅能避免注入，还能自动处理日期时间格式，不用手动加#：

Using conn As New OleDbConnection("你的Access连接字符串")
    conn.Open()
    Dim sql As String = "SELECT * FROM YourTableName WHERE P.AppointmentDate >= @MatchDate AND (P.AppointmentDate + P.AppointmentTime >= @CurrentTime)"
    Using cmd As New OleDbCommand(sql, conn)
        ' 添加参数
        cmd.Parameters.AddWithValue("@MatchDate", VarMatchDate)
        cmd.Parameters.AddWithValue("@CurrentTime", Now)
        ' 执行查询
        Using reader As OleDbDataReader = cmd.ExecuteReader()
            ' 处理结果...
        End Using
    End Using
End Using

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