VB如何在text1.text输入18位或15位数字的身份证并（判断身份证是否为正确的身份证）包括第18位是带有X的

Question

如题所述

Answer 1

Private Sub Command1_Click()
If Len(Text1.Text) = 15 Then
Sfz15
ElseIf Len(Text1.Text) = 18 Then Sfz18
Else
MsgBox "身份证号位数不正确！"
Exit Sub
End If
End Sub

Public Sub Sfz18()
Dim Jym1 As Integer, Jym2 As String
'下面检验校验码是否正确
Sfzh = Text1.Text
Jym1 = Val(Mid(Sfzh, 1, 1)) * 7 + Val(Mid(Sfzh, 2, 1)) * 9 _
+ Val(Mid(Sfzh, 3, 1)) * 10 + Val(Mid(Sfzh, 4, 1)) * 5 _
+ Val(Mid(Sfzh, 5, 1)) * 8 + Val(Mid(Sfzh, 6, 1)) * 4 _
+ Val(Mid(Sfzh, 7, 1)) * 2 + Val(Mid(Sfzh, 8, 1)) * 1 _
+ Val(Mid(Sfzh, 9, 1)) * 6 + Val(Mid(Sfzh, 10, 1)) * 3 _
+ Val(Mid(Sfzh, 11, 1)) * 7 + Val(Mid(Sfzh, 12, 1)) * 9 _
+ Val(Mid(Sfzh, 13, 1)) * 10 + Val(Mid(Sfzh, 14, 1)) * 5 _
+ Val(Mid(Sfzh, 15, 1)) * 8 + Val(Mid(Sfzh, 16, 1)) * 4 _
+ Val(Mid(Sfzh, 17, 1)) * 2
Jym1 = Jym1 Mod 11
If Jym1 = 1 Then
Jym2 = 0
ElseIf Jym1 = 0 Then Jym2 = 1
ElseIf Jym1 = 2 Then Jym2 = "x"
Else
Jym2 = 12 - Jym1
End If
If Jym2 <> Mid(Sfzh, 18, 1) Then
MsgBox "这不是一个有效的身份证号！"
Exit Sub
End If
'下面检验出生日期是否正确
Jym2 = Mid(Text1.Text, 7, 4) & "-" & Mid(Text1.Text, 11, 2) & "-" & Mid(Text1.Text, 13, 2)
If Not IsDate(Jym2) Then
MsgBox "这不是一个有效的身份证号！"
Exit Sub
End If
MsgBox "这是一个有效的身份证号！"
End Sub

Public Sub Sfz15()
Dim Jym2 As String
'下面检验出生日期是否正确
Jym2 = Mid(Text1.Text, 7, 2) & "-" & Mid(Text1.Text, 9, 2) & "-" & Mid(Text1.Text, 11, 2)
If Not IsDate(Jym2) Then
MsgBox "这不是一个有效的身份证号！"
Exit Sub
End If
MsgBox "这是一个有效的身份证号！"
End Sub
请参阅我的博客：http://hi.baidu.com/zgmg/blog/item/051ba235714ee00b91ef3943.html?timeStamp=1311164718265

Answer 2

Private Sub Command1_Click()
l = Len(Text1)
If l = 15 Then
If Not IsNumeric(Text1) Then MsgBox "15位身份证号码应为数字！": Exit Sub
ElseIf l = 18 Then
If Not IsNumeric(Left(Text1, 17)) Then MsgBox "18位身份证号码前17位应为数字！": Exit Sub
Else
MsgBox "身份证号码15或18位！", 48: Exit Sub
End If
l = Abs((l = 15) * 2)
s = Mid(Text1, 7, 8 - l)
s = Left(s, 4 - l) & "-" & Mid(s, 5 - l, 2) & "-" & Right(s, 2)
If Not IsDate(s) Then MsgBox "身份证号码有误！": Exit Sub
MsgBox s
End Sub

Answer 3

我国现行使用公民身份证号码有两种尊循两个国家标准，〖GB 11643-1989〗和〖GB 11643-1999〗。
〖GB 11643-1989〗中规定的是15位身份证号码：排列顺序从左至右依次为：六位数字地址码，六位数字出生日期码，三位数字顺序码，其中出生日期码不包含世纪数。
〖GB 11643-1999〗中规定的是18位身份证号码：公民身份号码是特征组合码，由十七位数字本体码和一位数字校验码组成。排列顺序从左至右依次为：六位数字地址码，八位数字出生日期码，三位数字顺序码和一位数字校验码。
地址码表示编码对象常住户口所在县(市、旗、区)的行政区划代码。
生日期码表示编码对象出生的年、月、日，其中年份用四位数字表示，年、月、日之间不用分隔符。
顺序码表示同一地址码所标识的区域范围内，对同年、月、日出生的人员编定的顺序号。顺序码的奇数分给男性，偶数分给女性。
校验码是根据前面十七位数字码，按照ISO 7064:1983.MOD 11-2校验码计算出来的检验码。
公式如下：
　　∑(a[i]*W[i]) mod 11 ( i = 2, 3, ..., 18 ) (1)
　　"*" 表示乘号
　　i--------表示身份证号码每一位的序号，从右至左，最左侧为18，最右侧为1。
　　a[i]-----表示身份证号码第 i 位上的号码
　　W[i]-----表示第 i 位上的权值 W[i] = 2^(i-1) mod 11
　　计算公式 (1) 令结果为 R
根据下表找出 R 对应的校验码即为要求身份证号码的校验码C。
　　R 0 1 2 3 4 5 6 7 8 9 10
　　C 1 0 X 9 8 7 6 5 4 3 2
由此看出 X 就是 10，罗马数字中的 10 就是X，所以在新标准的身份证号码中可能含有非数字的字母X。
了解了以上知识后，请试着编写以下函数：
① 判断号码是否为正确的身份证号。要求，传入一个字符串（身份证号码），根据这个参数判断是否为正确的身份证号；如果正确则返回.t.，否则返回.f.。
算法分析：要判断一个身份证号正确与否，第一要从位数上进行判断：是否为15位或18位；第二要从包含的字符上进行判断：15位的全由数字组成，18位的除校验码外，全部也由数字组成；第三是要判断其中的出生日期码是否能转换成正确的日期；第四要判断18位的身份证号最后一位是不是真正的校证码，如果上面四个条件都满足，则是正确的身份证号。
② 从身份证号码中获得出生日期。要求，传入一个字符串（身份证号码），首先判断这个参数是否为正确的身份证号码；若错误则返回空串，否则，再计算出生日期，并以yyyy.mm.dd这种格式返回字符的日期值。
算法分析：判断身份证号码正确后，根据位数取子串，如果是15位的，则取第7至12位，在年份数前加上19(因为只有早期的身份证才是上个世纪的，2000后出生的人一般都是用的18位）；如果是18位的，则直接取第7至14位；最后转换为yyyy.mm.dd的格式。
③ 从身份证号码中获得性别。要求，传入一个字符串（身份证号码），首先判断这个参数是否为正确的身份证号码；若错误则返回空串，否则，再计算其性别；如果是男生，则返回字符”1”，如果是女生则返回字符”0”。
算法分析：判断身份证号码正确后，根据位数取子串，如果是15位的，则取最后一位；如果是18位的号，则取倒数第位；最后判断取出来的数值的奇偶性即可。
④ 将15位身份证号转换成18位身份证号。要求，传入一个字符串（身份证号码），首先判断这个参数是否为正确的15位身份证号；如果错误则返回空串，否则，再计算出正确的18位身份证号码，并返回字符型的号码。
算法分析：关键有三，一是验证是正确的身份证号；二是要把6位日期码转换为8位日期码；三是计算出校证码。
⑤ 最后，把以上数个程序写在一个过程文件中，文件名为：ex15_1.prg

自己根据上面的自己编程吧