Получение интервала между двумя датами в DGV - Visual Basic .NET

Формулировка задачи:

Уважаемые. не могу решить одну проблему. Проблема в том что сравнить двух дат и покрасит их тремя цветами на DGV. подробности на процедуре sub swet(). Заранее спасибо...

Решение задачи: «Получение интервала между двумя датами в DGV»

textual
                            Листинг программы 
                        

                            For j = 0 To DataGridView1.Rows.Count - 1
    If Not IsDBNull(DataGridView1.Rows(j).Cells(0).Value) Then
        Dim chisla As Date
        chisla = DataGridView1.Rows(j).Cells(0).Value
        Dim N As Date = Now
        Dim k = DateDiff(DateInterval.Day, chisla, N)
        If k > 0 Then
            DataGridView1.Rows(j).DefaultCellStyle.BackColor = Color.Red
        ElseIf k = 0 Then
            DataGridView1.Rows(j).DefaultCellStyle.BackColor = Color.Yellow
        Else
            DataGridView1.Rows(j).DefaultCellStyle.BackColor = Color.LawnGreen
        End If
    End If
Next
                        