提取合法有效的身份证日期(练习题)

wshcw

请将提取合法有效的身份证日期提取出来,请也许会说,身份证取日期公式一搜索,一大把,是的,确实是这样,但没有一个完整全面的公式,大家用起来不方便,大家练习一下,把附件中合法的身份证中的日期提取出来,错误的就显示错误.

borly

试试，要考虑的因素很多，这样行不？

chemiee

=IF(OR(LEN(A1)={15,18})*ISNUMBER(--TEXT(IF(LEN(A1)=15,19,)&MID(A1,7,6+2*(LEN(A1)=18)),"#-00-00")),TEXT(--TEXT(IF(LEN(A1)=15,19,)&MID(A1,7,6+2*(LEN(A1)=18)),"#-00-00"),"[>"&TODAY()&"]日期超出;yyyy-m-d"),"错")
1，位数不是15或18位，显示“错”。
2，出生日期不是一个合法的日期，比如13月或32日之类的，显示“错”。
3，日期超出今天（today()）的日期显示日期超出。
4，前六位地区码等没有检测，如果需要则还需要建立相应的数据库。
5，18位的最后一位验证码没有检测，如果需要检测，则更复杂些。

fdd

楼上说得有理！

zphufo

楼主该出答案了。
渴望楼主出多个答案出来
提取出来为几个几种格式：
如：
（1）19680931
（2）1968-09-31
（3）1968.09.31
（4）68.09.31
（5）68.09
（6）68-09
这样几个公式。方便像偶之类的菜鸟有所选择。
谢谢。

marchwen01

这么久了，楼主都忘记了这个贴吧？

一指禅

=TEXT(MID(A6,7,LEN(A6)/2-1),"#-00-00")*1

wshcw

原帖由 marchwen01 于 2009-9-16 22:06 发表
这么久了，楼主都忘记了这个贴吧？

楼主没 忘记,只 是 太 让 我 失 望 了 ,等 了 这 么 长 时 间 没 有 一 个回 复 贴 子 让 我 满 意 .