使用Visual Basic计算从MS Access数据库获取的两个日期差值

原代码存在的问题 #

• 变量命名冲突：DateDiff是VB内置的日期计算函数，不能用作自定义变量名，会直接导致编译错误
• 变量类型错误：日期差值是整数类型的天数，不能用Date类型存储
• 拼写错误：ItemReturenedDate拼写错误，应为ItemReturnedDate
• 未处理异常场景：如果查询结果为空（dt.Rows(0)不存在），或者ItemReturnDate字段为DBNull，运行时会抛出异常
• 冗余变量：DateToday定义后未使用，可直接删除

修正后的代码 #

Dim da As New OleDb.OleDbDataAdapter("SELECT ITemID, ItemName, ItemDescription, ItemQuantity, ItemBorrowedDate, ItemReturnDate FROM BorrowedItem order by ID DESC", conn)
Dim dt As New DataTable
da.Fill(dt)

OverDueList.DataSource = dt.DefaultView

' 先检查查询结果是否有数据
If dt.Rows.Count > 0 Then
    ' 处理日期字段可能为空的情况
    If Not IsDBNull(dt.Rows(0)("ItemReturnDate")) Then
        Dim itemReturnedDate As Date = CDate(dt.Rows(0)("ItemReturnDate"))
        ' 用自定义变量名存储天数差，DateDiff返回整数类型结果
        Dim dayDifference As Integer = DateDiff(DateInterval.Day, itemReturnedDate, DateTimePicker1.Value)
        
        ' 示例：输出差值结果
        MessageBox.Show($"日期差值：{dayDifference} 天")
    Else
        MessageBox.Show("该记录的归还日期为空")
    End If
Else
    MessageBox.Show("未查询到任何借阅记录")
End If

扩展说明 #

1. 如果需要遍历所有记录计算日期差，可使用循环：

For Each row As DataRow In dt.Rows
    If Not IsDBNull(row("ItemReturnDate")) Then
        Dim returnDate As Date = CDate(row("ItemReturnDate"))
        ' 计算与当前系统时间的差值
        Dim diffDays As Integer = DateDiff(DateInterval.Day, returnDate, DateTime.Now)
        ' 可根据diffDays判断是否逾期（正数表示已逾期天数）
        If diffDays > 0 Then
            ' 标记逾期逻辑
        End If
    End If
Next

2. 确保conn是已正确初始化并打开的OleDb连接对象，否则无法填充数据表格

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