主题：退休日期的判断

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