Question

VB6.0 怎样提取身份证号码具体信息

VB 6.0 如何判断输入的身份证号码是否正确，然后自动提取15位或18位身份证号码中的性别、出生年月日。
注意看，这是VB！不是EXCEL的VBA，不要将网上的信息复制粘贴到我这里！

Answer 1

身份证号码性别是根据15位的最后一位或18位的第17位数值能否被2整除,能就是女,不能就是男
出生年月日的话
15位
第7位数值*10+第8位数值+1900就是年,9位数值*10+10位数值就是月,11位数值*10+12位就是日
例340524800101001 1900+8*10+0=1980 0*10+1=01 0*10+1=01即1980年1月1日
18位
第7到10位数值就是年,第11到12位数值就是月,第13到13位数值就是日
例34052419800101001X 即1980年1月1日
18位的校验码计算方法
将前面的身份证号码17位数分别乘以不同的系数。第i位对应的数为[2^(18-i)]mod11。从第一位到第十七位的系数分别为：7 9 10 5 8 4 2 1 6 3 7 9 10 5 8 4 2
余数只可能有0 1 2 3 4 5 6 7 8 9 10这11个数字。其分别对应的最后一位身份证的号码为1 0 X 9 8 7 6 5 4 3 2
身份证号:3 4 0 5 2 4 1 9 8 0 0 1 0 1 0 0 1 X
计算系数:7 9 10 5 8 4 2 1 6 3 7 9 10 5 8 4 2
3*7+4*9+0*10+5*5+2*8+4*4+1*2+9*1+8*6+0*3+0*7+1*9+0*10+1*5+0*8+0*4+1*2
=21+36+0+25+16+16+2+9+48+0+0+9+0+5+0+0+2=189
189除11取余得2,对应的最后一位数值为"X"

追问

能不能帮忙写个例子？

Answer 2

提取身份证号第7-10位为出生年，11-12位为月份（1-12），第13-14位为天（1-31），检查的再严格些，2月最多28天，如果为闰年则为29天，1，3，5，7，8，10，12月最多为31天，其他为30天。用MID函数提取字符串的某几位，再用VAL函数转为数值。