以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何从身份证列分别提取出生年月和性别  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=84455)
--  作者：wgraxp
--  发布时间：2016/5/3 4:40:00
--  [求助]如何从身份证列分别提取出生年月和性别
以前在Excel中用函数很容易从身份证号列中提取出生年月和性别，而在Foxtabel中不知用什么函数
--  作者：zcgmxf
--  发布时间：2016/5/3 7:50:00
--  
http://www.foxtable.com/help/topics/1345.htm
--  作者：大红袍
--  发布时间：2016/5/3 9:54:00
--  
ReadBirthDay 从身份证号码中读取出生日期
ReadSex 从身份证号码中读取性别
ValidPIN 用于校验身份证号码是否正确

 

DataColchanged事件，代码

 

Select Case e.DataCol.name
    Case "证件号码"
        If e.DataRow.IsNull("证件号码") Then \'身份证号码是否为空
            e.DataRow("出生日期") = Nothing \'如果为空,则清除出生日期
        Else
            \'否则从身份证号码列中提取出生日期
            e.DataRow("出生日期") = ReadBirthday(e.DataRow("证件号码"))
        End If
End Select