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

wly1567

转摘的18位公民身份证编码规则如下：
公民身份号码由十七位数字本体码和一位数字校验码组成。排列顺序从左至右依次为：六位数字地址码，八位数字出生日期码，三位数字顺序码和一位数字校验码。
地址码（前六位）表示编码对象常住户口所在县(市、旗、区)的行政区划代码。（所有区域的编码可以到这个网站http://www.stats.gov.cn/tjbz/index.htm 查询到最新的县及县以上的行政编码资料。）
生日期码（第七位到第十四位）表示编码对象出生的年、月、日，其中年份用四位数字表示，年、月、日之间不用分隔符。例如：1981年05月11日就用19810511表示。
顺序码（第十五位到十七位）为同一地址码所标识的区域范围内，对同年、月、日出生的人员编定的顺序号。其中第十七位奇数分给男性，偶数分给女性。
校验码（最后一位）是根据前面十七位数字码，按照ISO 7064:1983.MOD 11-2校验码计算出来的检验码。 第十八位数字的计算方法为：
1.将前面的身份证号码17位数分别乘以不同的系数。从第一位到第十七位的系数分别为：7 9 10 5 8 4 2 1 6 3 7 9 10 5 8 4 2
2.将这17位数字和系数相乘的结果相加。
3.用加出来和除以11，看余数是多少？
4余数只可能有0 1 2 3 4 5 6 7 8 9 10这11个数字。其分别对应的最后一位身份证的号码为1 0 X 9 8 7 6 5 4 3 2。
5.通过上面得知如果余数是2，就会在身份证的第18位数字上出现罗马数字的Ⅹ。如果余数是10，身份证的最后一位号码就是2。


杰兄，能不能再完善一下？具体看附件

笑九方

收藏了  好东西！！！

wshcw

原帖由 ctp_119 于 2011-5-4 08:18 发表
应大家的要求，现做如下调整，使其适应15位和18位的身份证号码。具体情况请看附件。

输入:532927199709250514,户中所在地没有出来.

ctp_119

实在是感谢版主的关爱！现已做了一些修改！原因也找到，并已修正！
st = Mid(str, 4, 3)
stt = Mid(str, 1, 2)
Set rnn = Worksheets("全国行政区划代码表").Columns("a").Find(stt, , lookat:=xlWhole)
Set rng = Worksheets("全国行政区划代码表").Columns("a").Find(stt & "*" & st, , lookat:=xlWhole)
TextBox5.Text = rnn.Offset(, 1) & rng.Offset(, 1)
If Err.Number = 0 Then
    TextBox8.Text = "正确"
Else
    TextBox8.Text = "有误"
End If
可见代码的位置很重要呀。呵呵。

ctp_119

同时还可以根据身份证号码查询邮政编码。有空我再来添上。现很忙

wshcw

原帖由 ctp_119 于 2011-5-11 08:07 发表
实在是感谢版主的关爱！现已做了一些修改！原因也找到，并已修正！
st = Mid(str, 4, 3)
stt = Mid(str, 1, 2)
Set rnn = Worksheets("全国行政区划代码表").Columns("a").Find(stt, , lookat:=xlWhole)
Set rng ...

真有钻劲，佩服！

ctp_119

谢谢版主的器重！

醉_清风

请问如果身份证中包含x 这个还能用么?

ctp_119

可以用呀，你试试不就知道了吗！

kszcs

留个记号，高手的帖子