如何才能实现这样的功能:
比如今天是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