- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 表达式生成的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=19987)
-- 发布时间：2012/5/26 10:34:00
-- 表达式生成的问题
怎么能从身份证号码里面自动提取出生年月并显示在列出生日期里面，然后自动计算年龄，计算的数字显示在年龄列里面。
此主题相关图片如下：表达式.png
-- 发布时间：2012/5/26 10:57:00
-- 回复：（贾佳）表达式生成的问题
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
-- 发布时间：2012/5/28 15:55:00
--
用excel完成很简单的