代码改一下

If e.DataCol.Name = "身份证号码" Then \'是身份证号码发生变化吗?
    If e.DataRow.IsNull("身份证号码") Then \'身份证号码是否为空
        e.DataRow("年龄") = Nothing \'如果为空,则清除出生日期
    Else
        Dim d As Date = ReadBirthday(e.DataRow("身份证号码"))
        Dim y As Integer = d.year
        If format(d, "MMdd") <= Format(Date.Today, "MMdd") Then
            e.DataRow("年龄") = Date.Today.Year - y
        Else
            e.DataRow("年龄") = Date.Today.Year - y -1
        End If
    End If
End If

这组代码计算出的年龄能随系统日期的化而相应变变化吗，如果不能要怎么修改呢？