验证码校验长短码转换（ISBN 身份证）_自定义函数

yjh_27 · 发表于 2014-4-20 20:27

本帖最后由 yjh_27 于 2014-4-23 20:28 编辑

题目来源：
在 VBA 中如何使用以下函数公式？——感谢 LMY123、liu-aguang 大侠鼎力相助
http://club.excelhome.net/thread-1113916-1-1.html

分 13位转10位及 10位转13位二个自定义函数

yjh_27 · 发表于 2016-3-23 17:21

更新。修正“X"

yjh_27 · 发表于 2016-10-27 09:14

'****************************************************************
'功能：身份证验证码，出生日期符合日期型
'函数名：  IDnumber
'参数1： str       待验证身份证号
'参数2： mode    输出模式。可省略，默认为：0
'                   0 输出18位身份证号，字符型。17位补末位、15位转18位
'                   1 输出验证结果，逻辑型
'                   2 输出验证码，1位字符型
'                   3 输出出生日期，日期型
'                   4 输出性别，0女 1男 2未识别
'返回值：  字符或逻辑型
'使用方法：arr = IDnumber(A)
'

02761752696 · 发表于 2017-12-6 08:39

学习了谢谢分享

哆啦怪 · 发表于 2018-9-30 23:30

yjh_27 发表于 2016-10-27 09:14
'****************************************************************
'功能：身份证验证码，出生日 ...

36212219530615621X 验证通不过

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

[原创] 验证码校验长短码转换（ISBN 身份证）_自定义函数

评分

评分

[原创] 验证码校验 长短码转换（ISBN 身份证）_自定义函数

评分

评分

[原创] 验证码校验长短码转换（ISBN 身份证）_自定义函数