ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

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

[复制链接]

TA的精华主题

TA的得分主题

发表于 2007-9-3 19:15 | 显示全部楼层 |阅读模式

        在日常办公中,常会遇到一些与身份证有关的计算与查询。如:15位与18位互相转化、验证码校验、提取出生日期(多种格式)、提取性别、提取年龄(周岁、虚岁)、查退休时间、查所在行政区划等。许多同志都是临到用了才来想怎么办,结果费时费力,笔者在此收集、整理、自创了一些方法。集中、方便、实用。或许这个材料对你有所帮助。

        在此,向以往曾提供相同或类似的材料的同仁表示诚挚的谢意!

egcQqM7H.rar (95.95 KB, 下载次数: 743)


[此贴子已经被作者于2007-9-19 17:04:24编辑过]

GYslYgZG.rar

96.66 KB, 下载次数: 579

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

TA的精华主题

TA的得分主题

发表于 2007-9-3 19:21 | 显示全部楼层

谢谢楼主分享!楼主辛苦了。内容比较全面,但有些地方的公式用法还有待简化,例如提取出生日期工作表中的S2单元格中原公式为:

=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)))

更简单的公式为:

=TEXT(TEXT(MID(R2,7,6+(LEN(R2)=18)*2),"#-00-00"),"yyyymmdd")

由于收集地比较全面,特奖励金币一个。

[此贴子已经被作者于2007-9-3 19:36:21编辑过]

TA的精华主题

TA的得分主题

发表于 2007-9-3 19:24 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2007-9-3 19:29 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2007-9-3 21:21 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
太及时了!谢谢楼主!!

TA的精华主题

TA的得分主题

发表于 2007-9-5 14:43 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2007-9-7 00:30 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2007-9-10 22:31 | 显示全部楼层
太好了,但验证码校验是如何实现的看不大明白。就是那个变量jiaoyanma哪里来的?

TA的精华主题

TA的得分主题

发表于 2007-9-10 22:32 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
谢谢分享!

TA的精华主题

TA的得分主题

发表于 2007-9-13 14:58 | 显示全部楼层
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-9-17 00:59 , Processed in 0.038567 second(s), 12 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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