如何才能实现这样的功能：
比如今天是2016年02月05日
1、
当“驾证有效期限”大于（today日期+30天）以上时，“驾证状态”栏自动生成“正常”；
当“驾证有效期限”等于（today日期+30天）时，“驾证状态”栏自动生成“即将到期请换证”；
当“驾证有效期限”小于（today日期）时，“驾证状态”栏自动生成“已过期请换证”；
2、
当“从业证有效期限”和“继续教育记录”均大于（today日期+30天）以上时，“从业证状态”栏自动生成“正常”；
当“从业证有效期限”等于（today日期+30天）时，“从业证状态”栏生成“即将到期请换证”；
当“继续教育记录”等于（today日期+30天）时，“从业证状态”栏生成“请参加继续教育”；
当“从业证有效期限”小于（today日期）时，“从业证状态”栏生成“已过期请换证”
3、
如何简化以下句子：
If e.DataCol.Name = "初次领证日期" Then
If e.DataRow.IsNull("初次领证日期") Then
e.DataRow("驾龄") = Nothing
Else
e.DataRow("驾龄") = Date.Today.Year - e.DataRow("初次领证日期").Year
End If
End If
If e.DataCol.Name = "领取大客日期" Then
If e.DataRow.IsNull("领取大客日期") Then
e.DataRow("大客年限") = Nothing
Else
e.DataRow("大客年限") = Date.Today.Year - e.DataRow("领取大客日期").Year
End If
End If
加好友 
发短信
Post By：2016/2/5 15:49:00 [显示全部帖子]
