EXCEL公式:身份证号提取年月部分的公式

设A1是身份证号，在B1中输入：

=IF(LEN(A1)=15,"19"&MID(A1,7,2)&"-"&MID(A1,9,2),MID(A1,7,4)&"-"&MID(A1,11,2))

可以编一个宏,也可以直接编公式,公式为:
=IF(LEN(A1)=18,MID(A1,7,4)&"年"&MID(A1,11,2)&"月"&MID(A1,13,2)&"日","19"&MID(A1,7,2)&"年"&MID(A1,9,2)&"月"&MID(A1,11,2)&"日")
注:15位身份证的人均出生在20世纪.