主题：表达式生成的问题

怎么能从身份证号码里面自动提取出生年月并显示在列出生日期里面，然后自动计算年龄，计算的数字显示在年龄列里面。
此主题相关图片如下：表达式.png

Select case

    Case "身份证号码"
        If e.NewValue Is Nothing Then
            Return
        Else
            Dim dt As Date = ReadBirthday(e.NewValue)

            Dim td As Date = Date.Today

            Dim n As Integer = td.Year - dt.Year
            If dt.AddMonths(n*12) > td Then
                n = n - 1
            End If

            e.DataRow("出生日期") = dt
            e.DataRow("年龄") = n
        End If

End select

用excel完成很简单的