主题：如何根据身份证号 计算出年龄？

如何根据身份证号 计算出年龄？

http://www.foxtable.com/webhelp/topics/2647.htm、http://www.foxtable.com/webhelp/topics/0320.htm

像我这样的，如何计算出年龄？
此主题相关图片如下：2020-11-23_102300.jpg

Select Case e.DataCol.name 
    Case "身份证号"
        If e.DataRow.IsNull("身份证号") orelse ValidPIN(e.DataRow("身份证号"))=false Then
            e.DataRow("年龄") = Nothing
        Else
            Dim tp As TimeSpan = Date.today - CDate(ReadBirthDay(e.DataRow("身份证号")))
            e.DataRow("年龄") = Math.Round(tp.TotalDays / 365.2422,2)
        End If
End Select