在 Visual Basic 中比较日期

Question

我想将当前日期与我保存在数据库中的日期进行比较。当数据库上的日期距当前日期已过去 30 天时，我想显示一条消息，指出期限已过，客户需要付款。下面是我的代码

con = New SqlConnection
con.ConnectionString = "Data Source=(LocalDB)\MSSQLLocalDB;AttachDbFilename=C:\Users\user\Documents\visual studio 2015\Projects\Database1.mdf;Integrated Security=True;"

Dim READER As SqlDataReader
Dim date1 As Date

date1 = Convert.ToDateTime(Today)

Try
    For i As Integer = 0 To DataGridView1.Rows.Count - 1
        con.Open()

        COMMAND = New SqlCommand("SELECT distinct Surname,Money,Date from [Table] where money!=N'no'", con)
        READER = COMMAND.ExecuteReader

        While READER.Read()
            If date1 > READER(2).AddDays(30) Then
                MessageBox.Show("The customer N'" & TextBox1.Text & " has debts N'" & ComboBox3.SelectedItem)
            End If
        End While

        con.Close()
    Next

    con.Close()

Catch ex As SqlException
    MessageBox.Show(ex.Message)
Finally
    con.Dispose()
End Try

Answer 1

您不必要地使用Convert.ToDateTime 将已经是Date 的Today 转换为Date。另一方面，Reader(2) 返回一个 Object，您没有将其转换为 Date。

但是为什么要在 VB 中进行这种比较呢？您将返回大量可能必须丢弃的记录。在 SQL 中进行比较。

SELECT DISTINCT Surname, Money, Date
FROM [Table]
WHERE Money != N'no' AND Date < (GETDATE() - 30)