vb写身份证号分析程序

1.输入vb，点击输入身份证，使用inputbox函数。vbInput身份证如何在文本框中同时显示出生年份和年龄vbInput身份证使用inputbox函数在文本框中同时显示出生年份和年龄，如下:测试电脑:联想Y50，版本Win 。
1、VB6.0怎样提取身份证号码具体信息Extraction/no . -1/第710位是出生年份，第1112位是月份(112)，第1314位是日子(131) 。查的比较严格，二月最多28天，闰年的话29天，1，3，5 ， 7 ， 8 。用MID函数提取字符串的部分数字，再用VAL函数转换成数值。身份证数字性别以15位数字的最后一位或18位数字的第17位是否能被2整除为准。
【vb写身份证号分析程序】如果不能是男性的出生日期，15位7位数值*108位数值 1900就是年份，9位数值*10 10位数值就是月份，11位数值*10 12位数值就是日期1900 8 * 10 019800 * 10 1010 * 101 。第13位到第13位是日期X，即1980年1月1日18位奇偶校验码的计算方法。身份证数的前17位分别乘以不同的系数。
2、用 vb如何实现利用身份证提取出生日期?private subcommand 1 _ Click()dim year，month，dayAsStringyearMid(Text1 。Text，4)monthMid(Text1 。Text，11，2)dayMid(Text1 。Text ， 13，2)DTPicker1 。值年