主题：退休日期的判断

数据表里面有“出生日期”和“性别”两列，如果性别的值是"女"，那么，根据出生日期，在到达50岁的退休年龄之前提前30天进行警告，将出生日期变为红色。这个代码改如何写呢？谢谢。

参考：http://www.foxtable.com/webhelp/scr/2471.htm

If e.Col.Name = "出生日期" Then
    If e.Row.IsNull("出生日期") = False And e.Row("性别") = "女"
        Dim d As Date = e.Row("出生日期")
        Dim d1 As Date = Date.Today.AddDays(30)
        Dim y As Integer = d.year
        Dim nl As Integer
        If format(d, "MMdd") <= Format(d1, "MMdd") Then
            nl = d1.year - y
        Else
            nl = d1.Year - y -1
        End If
        If nl >= 50 Then
            e.Style = "到期"
        End If
    End If
End If

你写的上述代码，如果要再加多一层判断，即对退休日期提前1095天（=3年）进行判断，并用e.Style = "将要退休"来设定颜色。那么代码该如何写？谢谢。

If e.Col.Name = "出生日期" Then
    If e.Row.IsNull("出生日期") = False And e.Row("性别") = "女"
        Dim d As Date = e.Row("出生日期")
        Dim d1 As Date = Date.Today.AddDays(30)
        Dim y As Integer = d.year
        Dim nl As Integer
        If format(d, "MMdd") <= Format(d1, "MMdd") Then
            nl = d1.year - y
        Else
            nl = d1.Year - y -1
        End If
        If nl >= 50 Then
            e.Style = "到期"
        ElseIf nl >= 48 Then
            e.Style = "将要退休"

        End If
    End If
End If