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

zwh3311085 · 发表于 2011-5-2 07:01

]身份证中提取年龄、性别、出生年月、户口所在地。就是在文本框中输入身份证号码，其它框中自动填充。谢谢

身份证号码.rar (54.88 KB, 下载次数: 441)

[ 本帖最后由 zwh3311085 于 2011-5-2 09:22 编辑 ]

LangQueS · 发表于 2011-5-2 07:45

建议楼主在论坛搜索“身份证”相关主题。

ctp_119 · 发表于 2011-5-2 08:35

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim str As String
Dim i As Integer
str = TextBox1.Text
i = Mid(str, 17, 1)
If i Mod 2 Then TextBox2.Text = "男" Else TextBox2.Text = "女"
TextBox3.Text = Mid(str, 7, 4) & "-" & Mid(str, 11, 2) * 1 & "-" & Mid(str, 13, 2) * 1
TextBox4.Text = DateDiff("yyyy", DateValue(Format(TextBox3.Text, "yyyy-mm-dd")), Date)
End Sub
这段程序只能自动生成年龄，性别，出身年月，不能生成户口所在地。如果要生成户口所在地，必须预定义才行。

LangQueS · 发表于 2011-5-2 08:45

http://club.excelhome.net/thread-577380-1-1.html

zwh3311085 · 发表于 2011-5-2 09:25

非常感谢！15位数好像不行，总之还是要谢谢啦！顺谢LangQueS 版主，祝工作顺利！

ctp_119 · 发表于 2011-5-2 09:37

原帖由 zwh3311085 于 2011-5-2 09:25 发表
非常感谢！15位数好像不行，总之还是要谢谢啦！顺谢LangQueS 版主，祝工作顺利！

15位不行，可以改呀，加条判断语句即可呀。
同时把变量I的数据类型也改下，改成byte好点。

[ 本帖最后由 ctp_119 于 2011-5-2 09:39 编辑 ]

zwh3311085 · 发表于 2011-5-2 10:12

真诚的谢谢您ctp_119 老师，您再帮一下吧，同时再给加一句只允许输入数字，谢谢您！

ctp_119 · 发表于 2011-5-2 11:18

原帖由 zwh3311085 于 2011-5-2 10:12 发表
真诚的谢谢您ctp_119 老师，您再帮一下吧，同时再给加一句只允许输入数字，谢谢您！

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-9]"
If Not bl Then
TextBox1.Text = Left(TextBox1.Text, i - 1)
MsgBox "只能输入数字", , "提示！！！！！"
End If
Application.EnableEvents = True
End Sub

zwh3311085 · 发表于 2011-5-2 14:23

身份证号码1.rar (14.65 KB, 下载次数: 145) 还要麻烦您ctp_119 老师，地址我预制了，看看行吗？谢谢您！

zwh3311085 · 发表于 2011-5-2 14:55

		自动登录	找回密码
密码			免费注册

[求助] 身份证中提取年龄、性别、出生年月、

回复 3楼 ctp_119 的帖子

回复 6楼 ctp_119 的帖子

回复 8楼 ctp_119 的帖子