以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  退休日期的判断  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=119530)
--  作者：edisontsui
--  发布时间：2018/5/26 13:52:00
--  退休日期的判断
数据表里面有“出生日期”和“性别”两列，如果性别的值是"女"，那么，根据出生日期，在到达50岁的退休年龄之前提前30天进行警告，将出生日期变为红色。这个代码改如何写呢？谢谢。
--  作者：有点蓝
--  发布时间：2018/5/26 14:26:00
--  
参考：http://www.foxtable.com/webhelp/scr/2471.htm
--  作者：edisontsui
--  发布时间：2018/5/28 16:05:00
--  
If e.Col.Name = "出生日期" Then
    If e.Row.IsNull("出生日期") = False And e.Row("性别") = "女"
        If e.Row("出生日期").adddays(18262) < Date.Today.AddDays(30) And e.Row("出生日期").adddays(18262) > Date.Today.AddDays(1) Then
            e.Style = "到期" 
        End If
    End If
End If

我这样写代码行吗？18262表示50周年的总天数。30表示提前30天对到退休年龄的出生日期变成红色。
--  作者：有点甜
--  发布时间：2018/5/28 16:30:00
--  
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
--  作者：edisontsui
--  发布时间：2018/6/5 17:10:00
--  
你写的上述代码，如果要再加多一层判断，即对退休日期提前1095天（=3年）进行判断，并用e.Style = "将要退休"来设定颜色。那么代码该如何写？谢谢。
--  作者：有点甜
--  发布时间：2018/6/5 17:31:00
--  

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