主题：给你一个身份证号码怎么样计算出他的出生日期和年龄

2楼告诉你怎么根据身份证提取出生日期，根据出生日期计算年龄参考：

http://www.foxtable.com/help/topics/2647.htm

狐爸  怎么根据身份证提取出生日期

具体代码是怎么样的

复制帮助的计算代码，根据二楼的内容，稍作调整
 
Select Case e.DataCol.name
    Case "身份证号码"
        If e.DataRow.IsNull("身份证号码") Then
            e.DataRow("年龄") = Nothing
        Else
            Dim tp As TimeSpan = Date.today - ReadBirthDay(e.DataRow("身份证号码"))
            e.DataRow("年龄") = Math.Round(tp.TotalDays / 365.2422,2)
        End If
End Select

代码写在DataColChanged事件。