身份证中提取年龄、性别、出生年月、

mschenshan

本人有一个，看看合不合楼主心意。
里头的好多东西是EH里大公无私的人们的成果，有些是我从网上找的，个人的有那么一点点。
废话说了一大堆，下面直接看附件。

dandydeng

还是这个好...

ctp_119

原帖由 wshcw 于 2011-5-2 21:30 发表

生肖不对吧?没有那么简单哦!

大理版主你好，是逻辑错误还是？请举个反例，也好让我回头呀。
这个设置的前提是系统时间是1900为基准的。我是测试了的。希望给个话……我不怕打击的，同时这恰恰是一种力量……

ctp_119

原帖由 zwh3311085 于 2011-5-2 20:07 发表
写入带有字母的身份证号码与限制输入有冲突啦，怎摸办呀？

带子母的是不规范的，同时一般带的都是X这个子母。程序设计可以放过这个子母呀。
Private Sub TextBox1_Change()
Dim str As String
Dim i As Byte
Application.EnableEvents = False
str = Right(TextBox1.Text, 1)
i = Len(TextBox1.Text)
bl = str Like "[0-9X]"
If Not bl Then
TextBox1.Text = Left(TextBox1.Text, i - 1)
MsgBox "只能输入数字", , "提示！！！！！"
End If
Application.EnableEvents = True
End Sub

[ 本帖最后由 ctp_119 于 2011-5-3 08:03 编辑 ]

lhx120824

原帖由 zwh3311085 于 2011-5-2 07:01 发表
]身份证中提取年龄、性别、出生年月、户口所在地。就是在文本框中输入身份证号码，其它框中自动填充。谢谢915900

要实现你的想法，只有用vba啦。

wshcw

原帖由 ctp_119 于 2011-5-3 07:56 发表

大理版主你好，是逻辑错误还是？请举个反例，也好让我回头呀。
这个设置的前提是系统时间是1900为基准的。我是测试了的。希望给个话……我不怕打击的，同时这恰恰是一种力量……

身份证是公历日期，所以算年生肖只能以农历年份来算。

TFQWFN

真是高手，学习了

zwh3311085

非常感谢ctp_119 老师，顺便谢谢大家！祝大家工作愉快！

ctp_119

借助mschenshan提供的全国行政区划代码表可以做出户口所在地了。不过只精确到县级。

gfs57

原帖由 ctp_119 于 2011-5-4 12:51 发表
有地区市呀，你再试试！

我是说只有××省××县，中间的××市却没了。如输入 330621199909101099 ，只显示 浙江省 绍兴县，中间的 绍兴市 却被省略了。