主题：请专家帮忙看一下这段代码该如何修改

If e.Col.Name = "到货日期" Then

    if e.row("是否核销") then

         e.Style =“已核销”

    else

    If e.Row.IsNull("到货日期") = False Then

        If e.Row("到货日期") < = Date.Today Then

            e.Style = "逾期"

        Else

            If e.Row("到货日期") < Date.Today.AddDays(7) Then

                e.Style = "近期"

            End If

        End If

    End If

   end if

End If