如何快速自动判断将出生日期20**年修改为19**年？

wwwconsumer · 发表于 2013-10-5 18:48

本帖最后由 wwwconsumer 于 2013-10-6 08:30 编辑

笔者所在的一家大型跨国公司，员工有几千人，但在汇总身份证时发现有以下错误：出身日期有时为1950年的错录为2050年，月、日都没错。笔者也想通过身份证号码转化出生日期函数直接更改，函数是这样的：=IF(LEN(f2)=18,CONCATENATE(MID(f2,7,4),"-",MID(f2,11,2),"-",MID(f2,13,2)),CONCATENATE(19,MID(f2,7,2),"-",MID(f2,9,2),"-",MID(f2,11,2))) ，但发现有以下几个问题：1、根据中国身份证号修改时，但个别中国身份证号是错误的（见图一），
图一.JPG

还有就是如果是港澳台、外国人的话也函数也不适用（见图二）。

图二

笔者的思路是：1、首先判断是否为中国身份证，如果是的话（15位或18位数字），就直接通过函数转成出生日期和后面的性别；2、如果中国身份证录入错误的话，或者港澳台外国身份证的话（非15位或18位数字），就对出生日期直接进行判断，如果是2053年的就改成1953年，后面的性别一列保持原来的格式不变。这个可以VBA做到吗？

员工身份证.rar (4.07 KB, 下载次数: 21)

guzhen9315 · 发表于 2013-10-5 18:55

一家大型跨国公司！ + 员工有几千人！ = 汇总身份证时发现有错误？

小伙伴们惊呆了！

lhdcxz · 发表于 2013-10-5 19:33

建议：1、问问那些国家的身份证的编码规则，看什么地方包含出生日期信息，分别提出来；
2、如果根据提出来的出生日期计算出的年龄太离谱（员工的年龄到今年怎么也应该有10岁吧？），就自动更正。

wwwconsumer · 发表于 2013-10-5 20:33

guzhen9315 发表于 2013-10-5 18:55
一家大型跨国公司！ + 员工有几千人！ = 汇总身份证时发现有错误？

小伙伴们惊呆了！

嗯，母公司是跨国公司，这个还是中国注册的公司。

wwwconsumer · 发表于 2013-10-5 20:36

lhdcxz 发表于 2013-10-5 19:33
建议：1、问问那些国家的身份证的编码规则，看什么地方包含出生日期信息，分别提出来；
2、如果根据提出来 ...

不用管它外国的身份证编号，有的还是录入的回乡证呢（以前的叫法，现在来往内地通行证吧），我的要求只要是把它的20**年变为19**年就行了，不用函数。

guzhen9315 · 发表于 2013-10-5 20:38

>2000年，则-100年

guzhen9315 · 发表于 2013-10-5 20:47

=IF(E2>36525,E2-36525,E2)

guzhen9315 · 发表于 2013-10-5 20:54

Sub SSS()
For i = 2 To Range("E65536").End(xlUp).Row
If Cells(i, 5) > 36525 Then Cells(i, 5) = Cells(i, 5) - 36525
Next
End Sub

wwwconsumer · 发表于 2013-10-5 23:35

guzhen9315 发表于 2013-10-5 20:54
Sub SSS()
For i = 2 To Range("E65536").End(xlUp).Row
If Cells(i, 5) > 36525 Then Cells ...

不错，谢谢了。不过我的思路是对以前汇总的出生日期不放心，就想根据身份证号码来自动判断出出身日期，如够身份证号码是错的或者是港澳台外国的，就把出生日期是20**的改成19**就可以了，另外性别也按这个原则来判断。不知可行？不过，你的这个代码还是不错的了。

kszcs · 发表于 2013-10-6 09:06

这么大的跨国公司，

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

[求助] 如何快速自动判断将出生日期20年修改为19年？

评分

最新热点 /1

[求助] 如何快速自动判断将出生日期20**年修改为19**年？

评分

最新热点 /1

[求助] 如何快速自动判断将出生日期20年修改为19年？