[Anas Mahmoud]

بالاضافة لرد الاخ قبلي 

يمكنك استخدام التالي لجلب الشيكات خلال اسبوع من اليوم ، متضمن شيكات اليوم الحالي ، غير متضمن الشيكات السابقة لليوم ، وغير مهتم بالوقت 

عدل Checks الى اسم جدول الشيكات وكذلك DueDate الى اسم حقل تاريخ الاستحقاق

كود :

       Dim query As String = "SELECT * FROM Checks
                               WHERE CAST(DueDate AS date) <= CAST(DATEADD(day,7, GETDATE()) AS date)
                               AND   CAST(DueDate AS date) >= CAST(getdate() AS date)"

       Dim cmd As New SqlCommand(query, conn)
       Dim sda As New SqlDataAdapter(cmd)
       Dim dt As New DataTable
       Dim RowCount As Integer

       conn.Open()

       RowCount = sda.Fill(dt)

       conn.Close()

       If RowCount > 0 Then
           MsgBox($"هناك عدد {RowCount} شيكات خلال الاسبوع")

           'عرض تفاصيل الشيكات
           DataGridView1.DataSource = dt

       End If