如何用VBA从身份证号码中提取性别

Sub 根据身份证号码确定性别()

sid = InputBox("请输入身份证号码：")

i = Len(sid)

If i <> 15 And i <> 18 Then '判断身份证号长度是否正确

MsgBox "身份证号码只能为15位或18位！"

Exit Sub

End If

If i = 15 Then '长度为15位

s = Right(sid, 1) '取最右侧的数字

Else '长度为18度

s = Mid(sid, 17, 1) '取倒数第2位数

End If

If Int(s / 2) = s / 2 Then '为偶数

sex = "女"

Else

sex = "男"

End If

MsgBox "性别：" + sex

End Sub

如何用VBA从身份证号码中提取性别相关推荐

java 身份证地址提取籍贯_从身份证号码中提取信息，这些方法请收好
小伙伴们好啊,今天老祝为大家准备了一组和身份证有关的函数公式,看看如何从身份证号码中提取出需要的信息. 如下图为所示,是一份模拟的员工信息表,A列是姓名,B列是身份证号码,C列是职级. ★ 首先咱们来 ...
如何快速从身份证号码中提取周岁？
今天跟大家分享一下如何快速从身份证号码中提取周岁? 1.点击[DIY工具箱] 2.点击[身份证]选择[提取年龄] 3.勾选[年龄]并设置为[周岁],然后点击[确定] 4.最后我们选择一个合适的保存 ...
excel如何从身份证号码中提取虚岁？
1.打开演示文件要求从身份证号码中提取虚岁. 2.首先我们选中身份证号码单元格区域 3.然后我们点击[diy工具箱] 4.点击[身份证]然后选择[提取年龄] 5.选择[虚岁],接着我们点击[确定] ...
7-27 从身份证号码中提取出出生年月 (12point(s))
7-27 从身份证号码中提取出出生年月 (12point(s)) 输入一个18位的身份证号码,提取出年份和月份并输出,请判断输入的号码是否是18位,如果不是请提示"Invalid data, ...
如何从Excel单元格的身份证号码中提取出生日期、性别
从身份证号码中提取出生年月.性别需要使用到字符串截取函数MID(),取余函数MOD()和条件函数IF() 一.提取出生日期在需要录入出生日期的单元格输入=MID(A1,7, 8)回车即可,函数自动会 ...
如何用oracle从身份证信息中提取出生日期?
在项目开发中,有从身份证信息中提取出生日期的需求: 1.对18位身份证,因为有多个表,所以用到它们的关联,示例如下: update pfapperosoninformation p set p.pb ...
java从身份证号码中提取出生年月日
前言给一个String 类型的身份证号码,需要从这串数字中获取出生日期.性别.年龄一.问题描述: 给一个String 类型的身份证号码,需要从这串数字中获取出生日期.性别.年龄.身份证号码分为 ...
excel 从身份证号中提取性别，年龄
身份证号提取性别 =IF(MOD(MID(F1576,17,1),2),"男","女") 身份证号提取年龄 =YEAR(TODAY())-MID(F3,7,4) ...
用EXCEL提取身份证号码中的生日
自动录入出生日期 (1)函数分解 CONCATENATE函数将几个文本字符串合并为一个文本字符串. 语法:CONCATENATE(text1,text2,...) Text1,text2, ...

如何用VBA从身份证号码中提取性别

如何用VBA从身份证号码中提取性别相关推荐

最新文章

热门文章