Dim d As Date = e.DataRow("参加工作时间") Dim y As Integer = d.year If format(d, "MMdd") <= Format(Date.Today, "MMdd") Then y = Date.Today.Year - y Else y = Date.Today.Year - y -1 End If If e.DataRow("原技术资格等级") = Nothing AndAlso y >= 12 Then e.DataRow("是否合格") = True Else e.DataRow("是否合格") = False End If