身份证号码举例

发布时间：2020-05-26 13:43:31 来源：文档文库

小中大

字号：

手机查看

身份证号码举例

身份证整个号码的含义是什么？

18位身份证号码各位的含义:

1-2位省、自治区、直辖市代码；

3-4位地级市、盟、自治州代码；

5-6位县、县级市、区代码；

7-14位出生年月日，比如19670401代表1967年4月1日；

15-17位为顺序号，其中17位（倒数第二位）男为单数，女为双数；

18位为校验码，0-9和X。作为尾号的校验码，是由号码编制单位按统一的公式计算出来的，计算的结果是0-10，如果某人的尾号是0－9，都不会出现X，但如果尾号是10，那么就得用X来代替，因为如果用10做尾号，那么此人的身份证就变成了19位。X是罗马数字的10，用X来代替10。

举例：

130503 19670401 0012这个身份证号的含义: 13为河北，05为邢台，03为桥西区，出生日期为1967年4月1日，顺序号为001，2为校验码。

15位身份证号码各位的含义:

1-2位省、自治区、直辖市代码；

3-4位地级市、盟、自治州代码；

5-6位县、县级市、区代码；

7-12位出生年月日,比如670401代表1967年4月1日,这是和18位号码的第一个区别；

13-15位为顺序号，其中15位男为单数，女为双数；

与18位身份证号的第二个区别：没有最后一位的校验码。

举例：

130503 670401 001的含义; 13为河北，05为邢台，03为桥西区，出生日期为1967年4月1日，顺序号为001。

Excel身份证号码校验实例

身份证号码是按照一定规律编制的，是个人身份的有效证明，每个人只有一个号码，且不会重复，因而被各单位各部门广泛应用在相关名册中。在大量的身份证号码录入过程中，由于抄写或录入等原因，可能会弄错了某位数字，如果录错了任何一位数字，计算出来的校验码就不一样。根据这一特点，本函数可以对已录入的大批量身份证号码进行校验，如果校验未通过，则说明你录入的号码中必定是某位数字错了，应及时更正，以保证身份证号码正确有效，如果录入的是第一代15位身份证号码，本函数将返回18位号码，使身份证号码保持统一的位数。

代码如下：

Function IDcheck(ID)                                                       '身份证号码校验函数

Dim s, i As Integer

Dim e, z As String

Part1: '----------------------------身份证号码合法性检查---------------------------------------

If Not (Len(ID) = 18 Or Len(ID) = 15) Then                                           '位数检验

IDcheck = "位数错误"

Exit Function

Else

If Len(ID) = 15 Then ID = Left(ID, 6) & "19" & Right(ID, 9)

If IsNumeric(Left(ID, 17)) = False Or InStr(ID, ".") > 0 Then                   '字符检验

   IDcheck = "字符错误"

   Exit Function

End If

On Error Resume Next                                                             '日期检验

If DateValue(Mid(ID, 7, 4) & "-" & Mid(ID, 11, 2) & "-" & Mid(ID, 13, 2)) < 1 Or _

   DateValue(Mid(ID, 7, 4) & "-" & Mid(ID, 11, 2) & "-" & Mid(ID, 13, 2)) > Date Then

   IDcheck = "日期错误"

   Exit Function

End If

End If

Part2: '-----------------------------校验码的生成及检查----------------------------------------

s = 0

For i = 1 To 17

s = s + Val(Mid(ID, 18 - i, 1)) * (2 ^ i Mod 11)

Next

e = Mid("10X98765432", (s Mod 11) + 1, 1)                                        '生成校验码

If Len(ID) = 18 Then

z = UCase(Right(ID, 1))

If z = e Then                                                                   '校验码对比

   IDcheck = "通过"

   Else

   IDcheck = "校验未通过"                '如果要返回校验码，请把本行语句改为：IDcheck = e

End If

Else

IDcheck = ID & e                                                       '15位身份证号码升位

End If

End Function                                                    '编写 474589791 2011年6月11日

使用方法：

一、建立函数　

1、打开excel，点击菜单的“工具→宏→录制新宏”，弹出录制新宏对话框。

　　

2、在“保存在”下面选择“个人宏工作簿”，点击确定。（选择个人宏工作簿有2大好处：①使本函数可应用于当前计算机中所有的excel工作表；②不受宏安全性设置高低的影响。）

3、在弹出的录制宏工具中点击“停止录制”按钮，结束宏的录制。

4、点击菜单的“工具→宏→Visual Basic 编辑器”，打开编辑器。

5、在编辑器中可以看到刚才录制的代码“Sub macrol()　”，还有录制时间等内容。选中编辑器中的代码并删除。

注：如果编辑器中没有出现PERSONAL.XLS - 模块1（代码），请在左边“工程资源管理器”中找到PEROSNAL.XLS下面的模块1并双击。

6、把以上代码复制到编辑器中，保存并退出编辑器。至此，你就可以使用本函数了。

　

二、函数的使用

1、打开名册，点击身份证号码后面用于存放校验结果的空白单元格，点击插入函数按钮 fx ，弹出插入函数对话框。

2、在“选择类别”中选择“用户定义”类。

3、可以看到“选择函数”下面出现了刚才保存的 PERSONAL.XLS!IDcheck 函数，选中该函数，点击确定按钮，弹出“函数参数”对话框。

4、点击工作表上对应的身份证号码单元格（下图为A2单元格），点击“确定”按钮。

5、然后向下填充，得到其他身份证号码的检验结果。