以下是引用YBIL在2003-4-22 0:03:00的发言:
我来一个:
性别=IF(or(and(len(q1)=15,mod(RIGHT(q1,1),2)=1),(and(len(q1)=18,mod(int(RIGHT(q1,2)/10),2)=1))),"男","女")
出生日期=IF(LEN(q1)=15,date(mid(q1,7,2),mid(q1,9,2),mid(q1,11,2)),date(mid(q1,7,4),mid(q1,11,2),mid(q1,13,2)))
年龄=DATEDIF(a1,TODAY(),"y")
(注:q1为身份证号码,a1为出生日期)
改成:性别=IF(Q1="","",IF(AND(LEN(Q1)<>15,LEN(Q1)<>18),"误",IF(LEN(Q1)=15,IF(MOD(RIGHT(Q1,1),2)=1,"男","女"),IF(MOD(MID(Q1,17,1),2)=1,"男","女"))))
这样就可以验证末位是“X”的性别了,不过有点啰嗦,请高手修改。(“误”,指身份证号输入错误)
[此贴子已经被作者于2004-9-10 18:23:35编辑过] |