VB如何自动保存_VB编写的身份证号自动识别实用程序

今天我们共同来看一下用VB编写的实用小工具--身份证号自动提取性别、年龄、出生日期工具。

身份证是我们每个公民都有的，根据它可以唯一识别出具体某个人。

程序实现功能：

当用户单击”输入身份证号”按钮时，弹出输入输入框，接收用户输入的身份证信息后，从身份证号中提取相关信息并显示在指定控件上。

程序实现过程分析：

1、单击“输入身份证号”按钮，使用inputbox函数弹出以下对话框：

身份证号=InputBox(对话框提示信息，标题，默认值)

当用户选择inputbox 的“确定”按钮时，执行身份证号判断操作。

具体判断过程如下：

当用户输入的身份证号不足18位时，使用msgbox函数，做出以下提示

应用技巧：

1)检测身份证号长度使用Len()函数；

2)使用If选择结构判断身份证号是否正确：

   if  身份证号不足18位 then

     msgbox给出提示

else

  在指定控件显示出生年月、性别以及年龄

End If

3、当信息录入正确时，在指定控件显示出生年月、性别以及年龄。

1) 在名为shengri的文本框中显示出生年月，出生年月为身份证号的第7-14位

提示：使用mid函数

2)在名为nianling的文本框中显示年龄

提示：使用year(now())获得系统日期的年份，使用mid函数获取身份证中年份信息，相减可得年龄。

3)在名为xingbie的文本框中显示性别：身份证的第17位为偶数则为“女”，奇数为“男”。

提示：提取身份证第17位，放入整型变量x中，判断x的奇偶性(x mod 2=0 则 x为偶数，否则为奇数)，由此可以决定性别

4、保存工程文件和窗体文件。

窗体界面设计

代码实现

Private Sub Command1_Click() '输入身份证号

Dim sfzh As String   '定义身份证号为字符类型，位数大，且最后一位存在X

sfzh = InputBox("请输入18位身份证号", "身份证提取程序")  '输入对话框使用

If Len(sfzh) < 18 Then

MsgBox "身份证号输入错误，请重新输入！", vbOKOnly, "错误提醒"

Else

id = sfzh   '身份证号

tiqu (sfzh)    '调用自定义tiqu过程

End If

End Sub

Public Sub tiqu(sfzh As String)   '自定义过程

Dim x As Integer

shengri = Mid(sfzh, 7, 8)     ‘生日’

nianling = Year(Now()) - Mid(sfzh, 7, 4)   '年龄

x = Val(Mid(sfzh, 17, 1))

If x Mod 2 = 0 Then

xingbie = "女"

Else

xingbie = "男"     '性别

End If

End Sub

实际运行图

大家在学习VB中有不懂之处或者需要VB视频学习资料，可以添加在线学习小编微信号：vbyjk521 ，更多VB精彩编程内容，尽在跟我学VB。

为了帮助VB基础薄弱或者VB零基础想快速掌握VB编程的朋友，充分利用好宝贵的时间，VB视频直播现已正式开启了，针对VB基础薄弱或者零基础的朋友有专门的基础讲解课程；对已有VB编程基础想综合提高编程开发能力的朋友有综合讲解课程及串口通信与数据库开发课程可供选择学习，可加小编微信了解。

长按上图，关注跟我学VB公众平台

更多VB精彩内容，尽在VB学习