以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  如何根据身份证号 计算出年龄？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=158520)

--  作者：我非英雄 --  发布时间：2020/11/23 10:15:00 --  如何根据身份证号 计算出年龄？ 如何根据身份证号 计算出年龄？

--  作者：有点蓝 --  发布时间：2020/11/23 10:18:00 --   http://www.foxtable.com/webhelp/topics/2647.htm、http://www.foxtable.com/webhelp/topics/0320.htm

--  作者：我非英雄 --  发布时间：2020/11/23 10:23:00 --  给个公式，自己学习一下行吗？ 像我这样的，如何计算出年龄？ 此主题相关图片如下：2020-11-23_102300.jpg

--  作者：有点蓝 --  发布时间：2020/11/23 10:27:00 --   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