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

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