ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: liuzequan

[原创]电子表格中与身份证有关的公式计算与查询

[复制链接]

TA的精华主题

TA的得分主题

 楼主| 发表于 2007-9-23 01:10 | 显示全部楼层

“格式”-“工作表”-“取消隐藏”即可!

TA的精华主题

TA的得分主题

发表于 2007-9-23 08:47 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2007-10-15 11:29 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2007-10-17 12:46 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2007-10-18 19:17 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2007-12-15 22:37 | 显示全部楼层
号码有效性验证的公式是怎样来的,我看不太懂,把公式复制到别的工作表中去应用却得出FALSE,为什么呀

TA的精华主题

TA的得分主题

 楼主| 发表于 2008-8-28 23:35 | 显示全部楼层

又到开学报名了,请广大班主任、教导处工作人员根据具体情况使用本文件。

TA的精华主题

TA的得分主题

发表于 2008-8-29 00:47 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

也把我的公式从"我的空间"贴过来,给大家分享:

有效性公式(适用于新输入身份证号):
=AND(OR(LEN(A1)={15,18}),ISNUMBER(1*TEXT(MID(A1,7,LEN(A1)/2-1),"#-00-00")),--TEXT(RIGHT(19&MID(A1,7,LEN(A1)/2-1),8),"#-00-00")>1828,--TEXT(RIGHT(19&MID(A1,7,LEN(A1)/2-1),8),"#-00-00")<TODAY())
性别(最短31字符):
=IF(ISODD(MID(A1,9,9)),"男","女")
=IF(ISEVEN(MID(A1,9,9)),"女","男")
=IF(MOD(MID(A2,15,3),2),"男","女")
出生日期:
=--TEXT(RIGHT(19&MID(A1,7,LEN(A1)/2-1),8),"#-00-00")

年龄:

=MOD(YEAR(NOW())-MID(A1,7,LEN(A1)/2-5),190)

或者:

=DATEDIF(TEXT(RIGHT(19&MID(A1,7,LEN(A1)/2-1),8),"#-00-00"),NOW(),"Y")
已有身份证的情况下,公式应加合法性,有效性判断,所以公式改为:
出生日期:
=IF(A1="","",IF(AND(LEN(A1)<>{15,18}),"错误",IF(ISERR(1*TEXT(MID(A1,7,LEN(A1)/2-1),"#-00-00")),"错误",IF(OR(1*TEXT

(MID(A1,7,LEN(A1)/2-1),"#-00-00")<1828,1*TEXT(MID(A1,7,LEN(A1)/2-1),"#-00-00")>TODAY()),"错误",--TEXT(RIGHT(19&MID(A1,7,LEN(A1)/2-1),8),"#-00-00")))))
年龄:
=IF(A1="","",IF(AND(LEN(A1)<>{15,18}),"错误",IF(ISERR(1*TEXT(MID(A1,7,LEN(A1)/2-1),"#-00-00")),"错误",IF(OR(1*TEXT(MID(A1,7,LEN(A1)/2-1),"#-00-00")<1828,1*TEXT(MID(A1,7,LEN(A1)/2-1),"#-00-00")>TODAY()),"错误",MOD(YEAR(NOW())-MID(A1,7,LEN(A1)/2-5),190)))))
折算为天数:
=IF(A1="","",IF(AND(LEN(A1)<>{15,18}),"错误",IF(ISERROR(1*(TEXT(MID(A1,7,LEN(A1)/2-1),"#-00-00"))),"错误",IF(OR

(1*TEXT(MID(A1,7,LEN(A1)/2-1),"#-00-00")<1828,1*TEXT(MID(A1,7,LEN(A1)/2-1),"#-00-00")>TODAY()),"错误",DATEDIF(TEXT((LEN(A1)=15)*19&MID(A1,7,6+(LEN(A1)=18)*2),"#-00-00"),TODAY(),"D")))))

身份证第18位(校验码)的计算方法

1、将前面的身份证号码17位数分别乘以不同的系数。从第一位到第十七位的系数分别为:7-9-10-5-8-4-2-1-6-3-7-9-10-5-8-4-2。
2、将这17位数字和系数相乘的结果相加。
3、再用求和数除以11,看余数是多少?
4、余数只可能有0-1-2-3-4-5-6-7-8-9-10这11个数字。其分别对应的最后一位身份证的号码为1-0-X-9-8-7-6-5-4-3-2。
5、通过上面得知如果余数是2,就会在身份证的第18位数字上出现罗马数字的Ⅹ。如果余数是10,身份证的最后一位号码就是2。
例如:某男性的身份证号码是53292719650626003X。我们要看看这个身份证是不是合法的身份证。
首先我们得出前17位的乘积和是189,然后用189除以11得出的结果是17+2/11,也就是说其余数是2。最后通过对应规则就可以知道余数2对应的数字是x。所以,可以判定这是一个合格的身份证号码。

=IF(LEN(A1)=15,REPLACE(A1,7,,19)&MID("10X98765432",MOD(SUM(MID(REPLACE(A1,7,,19),ROW(INDIRECT("1:17")),1)*2^(18-ROW(INDIRECT("1:17")))),11)+1,1),A1)

TA的精华主题

TA的得分主题

发表于 2008-8-29 01:00 | 显示全部楼层

谢谢WSHCW老师分享

有一问题不明:

年龄计算公式

=MOD(YEAR(NOW())-MID(A1,7,LEN(A1)/2-5),190)

改成=YEAR(NOW())-MID(A1,7,LEN(A1)/2-5),这样不是更简吗?

为什么还要以190岁为划分线?

TA的精华主题

TA的得分主题

发表于 2008-8-29 08:38 | 显示全部楼层

提取出生日期中,有的公式应该简化,比如:

=IF(LEN(AD2)=15,"19"&MID(AD2,7,6),IF(LEN(AD2)=18,MID(AD2,7,8)))

就可以得出19660101这样的日期结果,没必要用

=IF(R2="","",DATE(LEFT(IF(LEN(R2)=15,"19","")&MID(R2,7,6+2*(LEN(R2)=18)),4),MID(IF(LEN(R2)=15,"19","")&MID(R2,7,6+2*(LEN(R2)=18)),5,2),MID(IF(LEN(R2)=15,"19","")&MID(R2,7,6+2*(LEN(R2)=18)),7,2)))

这么复杂。

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-9-19 08:59 , Processed in 0.033706 second(s), 7 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表