Окрасить ячейку DataGridView в зависимости от данных - Visual Basic .NET

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

Добрый день. помогите, необходимо в зависимости от даты в ячейке окрашивать строку. например если дата ячейки меньше сегодняшней окрасить в красный, если дата ячейки больше на (1-2-3) дня желтый.... Спасибо.

Решение задачи: «Окрасить ячейку DataGridView в зависимости от данных»

textual
                            Листинг программы 
                        
 
                            
                        
 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        DataGridView1.Rows.Add()
        DataGridView1.Rows(0).Cells(0).Value = "07.02.2017"
        DataGridView1.Rows(0).Cells(1).Value = "красный"
        DataGridView1.Rows.Add()
        DataGridView1.Rows(1).Cells(0).Value = "08.02.2017"
        DataGridView1.Rows(1).Cells(1).Value = "желтый"
        DataGridView1.Rows.Add()
        DataGridView1.Rows(2).Cells(0).Value = "09.02.2017"
        DataGridView1.Rows(2).Cells(1).Value = "желтый"
        DataGridView1.Rows.Add()
        DataGridView1.Rows(3).Cells(0).Value = "07.02.2017"
        DataGridView1.Rows(3).Cells(1).Value = "красный"
 
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
        For i = 0 To DataGridView1.Rows.Count - 1
            If DataGridView1.Rows(i).Cells(0).Value = Format(Now, ("dd.MM.yyy")) Then
                DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.Red
            End If
        Next
        For i = 0 To DataGridView1.Rows.Count - 1
            If DataGridView1.Rows(i).Cells(0).Value > Format(Now, ("dd.MM.yyy")) Then
                DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.Yellow
            End If
        Next
 
    End Sub