Excel表格函数判断身份证号是否正确

D4为身份证号所在的位置

=IF(LEN(D4)=0,"空",IF(LEN(D4)=15,"老号",IF(LEN(D4)<>18,"位数不对",IF(CHOOSE(MOD(SUM(MID(D4,1,1)*7+MID(D4,2,1)*9+MID(D4,3,1)*10+MID(D4,4,1)*5+MID(D4,5,1)*8+MID(D4,6,1)*4+MID(D4,7,1)*2+MID(D4,8,1)*1+MID(D4,9,1)*6+MID(D4,10,1)*3+MID(D4,11,1)*7+MID(D4,12,1)*9+MID(D4,13,1)*10+MID(D4,14,1)*5+MID(D4,15,1)*8+MID(D4,16,1)*4+MID(D4,17,1)*2),11)+1,1,0,"X",9,8,7,6,5,4,3,2)=IF(ISNUMBER(RIGHT(D4,1)*1),RIGHT(D4,1)*1,"X"),"正确","错误"))))