一个完整身份证效验程序.doc
《一个完整身份证效验程序.doc》由会员分享,可在线阅读,更多相关《一个完整身份证效验程序.doc(40页珍藏版)》请在三一文库上搜索。
1、根据中华人民共和国国家标准 GB 11643-1999中有关公民身份号码的规定,公民身份号码是特征组合码18位:由十七位数字本体码和一位数字校验码组成。排列顺序从左至右依次为:六位数字地址码,八位数字出生日期码,三位数字顺序码和一位数字校验码。 地址码表示编码对象常住户口所在县(市、旗、区)的行政区划代码。生日期码表示编码对象出生的年、月、日,其中年份用四位数字表示,年、月、日之间不用分隔符。顺序码表示同一地址码所标识的区域范围内,对同年、月、日出生的人员编定的顺序号。顺序码的奇数分给男性,偶数分给女性。15位:六位数字地址码,六位数字出生日期码,三位数字顺序码和一位数字校验码。 varcod
2、eInfoTst: Tstrings; /总codeTst: Tstrings; /代码InfoTst: Tstrings; /地址信息function identityInfo(identitycode: string): string;/由年月日判断是否为有效日期function IsDate(Year, Month, Day: string): Boolean;varst: string;beginst := Year + - + Month + - + day;tryStrToDate(st);Result := True;exceptResult := False;end;end;f
3、unction getdetailedFromCode(code: string): string; /由身份证的前六位获得省份县市信息varIndex: integer;St: string;beginindex := codeTst.IndexOf(code);if index = -1 thenbeginResult := ;exit;end;st := infoTstindex; /县code := copy(code, 1, 4) + 00;index := codeTst.IndexOf(code);if index = -1 thenbeginResult := st;exit;
4、end;st := infoTstindex + st; /市code := copy(code, 1, 2) + 0000;index := codeTst.IndexOf(code);if index = -1 thenbeginResult := st;exit;end;st := infoTstindex + st; /省Result := st;end;varYLYear, YLMonth, YlDay, id, sex, code: string;E: integer;St: string;begine := Length(identitycode);if (e 18) or (e
5、 15) then result := ;if (e = 18) thenbeginYLYear := copy(identitycode, 7, 4);YlMonth := copy(identitycode, 11, 2);YLday := copy(identitycode, 13, 2);id := copy(identitycode, 18,1);end;if (e = 15) thenbeginYLYear := 19 + copy(identitycode, 7, 2);YlMonth := copy(identitycode, 9, 2);YLday := copy(ident
6、itycode, 11, 2);id := copy(identitycode, 15, 1);end;st := ;if IsDate(YlYear, YlMonth, Ylday) thenbeginst := YLYear + 年 + YlMonth + 月 + YLday + 日生end;code := copy(identitycode, 1, 6);st := getdetailedFromCode(code) + : + st;if (StrToInt(id) mod 2 = 1) thenbeginsex := 男;endelsebeginsex := 女;end;st :=
7、st + : + sex + 性! + Trim(IntToStr(e) + 位证号!;Result := st;end;procedure TForm1.Button1Click(Sender: TObject);vari, num: integer;code, info: string;begincodeInfoTst := Tstringlist.Create;CodeTst := Tstringlist.Create;infotst := Tstringlist.Create;trycodeInfoTst.LoadFromFile(c:code.txt);/分解代码地址信息num :=
8、 Codeinfotst.Count;for i := 0 to num - 1 dobegincode := copy(Codeinfotsti, 1, 6);Info := copy(Codeinfotsti, 8, length(Codeinfotsti) - 7);codetst.Add(code);infotst.Add(info);end;showmessage(identityInfo(530101700205379);finallycodeTst.Free;infotst.Free;CodeinfoTst.Free;end;end;end.code.txt内容如下,你可以扩展1
9、50000,内蒙古自治区150100,呼和浩特市150101,呼和浩特市辖区150105,郊区150121,土默特左旗150122,托克托县150123,武川县150124,和林格尔县150125,清水河县150200,包头市150201,包头市辖区150205,石拐矿区150206,白云矿 区150207,郊区150221,土默特右旗150222,固阳县150223,达尔罕茂明安旗150300,乌海市150302,海勃湾区150303,海南区150304,乌达区150400,赤峰市150402,红山区150403,元宝山区150404,松山区150421,阿鲁科尔沁旗150422,巴林左旗1
10、50423,巴林右旗150424,林西县150425,克什克腾旗150426,翁牛特旗150428,喀喇沁旗150429,宁城县150430,敖汉旗152100,呼伦贝尔盟152101,海拉尔市152102,满洲里市152103,扎兰屯市152104,牙克石市152122,阿荣旗152123,莫力达瓦旗152125,额尔古纳右旗152126,额尔古纳左旗152127,鄂伦春旗152128,鄂温克旗152129,新巴尔虎右旗152130,新巴尔虎左旗152131,陈巴尔虎旗152200,兴安盟152201,乌兰浩特市152202,阿尔山市152221,科尔沁右翼前旗152222,科尔沁右翼中旗1
11、52223,扎赉特旗152224,突泉县152300,哲里木盟152301,通辽市152302,霍林郭勒市152322,科尔沁左翼中旗152323,科尔沁左翼后旗152324,开鲁县152325,库伦旗152326,奈曼旗152327,扎鲁特旗152500,锡林郭勒盟152501,二连浩特市152502,锡林浩特市152522,阿巴嘎旗152523,苏尼特左旗152524,苏尼特右旗152525,东乌珠穆沁旗152526,西乌珠穆沁旗152527,太仆寺旗152528,镶黄旗152529,正镶白旗152530,正兰旗152531,多伦县152600,乌兰察布盟152601,集宁市152624,
12、卓资县152625,化德县152626,商都县152627,兴和县152628,丰镇县152629,凉城县152630,察哈尔右翼前旗152631,察哈尔右翼中旗152632,察哈尔右翼后旗152634,四子王旗152700,伊克昭盟152701,东胜市152722,达拉特旗152723,准格尔旗152724,鄂托克前旗152725,鄂托克旗152726,杭锦旗152727,乌审旗152728,伊金霍洛旗152800,巴彦淖尔盟152801,临河市152822,五原县152823,磴口县152824,乌拉特前旗152825,乌拉特中旗152826,乌拉特后旗152827,杭锦后旗152900,
13、阿拉善盟152921,阿拉善左旗152922,阿拉善右旗152923,额济纳旗153000,黑龙江153100,吉林153200,辽宁153300,河北153400,山西153500,陕西153600,甘肃153700,宁夏153800,接边调整500000,重庆市500200,重庆直属500201,渝中区500211,江北区500212,沙坪坝区500213,九龙坡区500214,南岸区500215,北碚区500216,万盛区500217,双桥区500221,长寿县500222,巴南区500223,綦江县500224,渝北区500225,江津市500226,合川市500227,潼南县5002
14、28,铜梁县500229,永川市500230,大足县500231,荣昌县500232,璧山县501200,重庆万州移民开发区501202,龙宝501203,天城501204,五桥501222,开县501223,忠县501224,梁平县501225,云阳县501226,奉节县501227,巫山县501228,巫溪县501229,城口县502300,涪陵市502311,涪陵区502322,垫江县502323,南川市502324,丰都县502326,武隆县503500,黔江地区503521,石柱县国土局503522,秀山县503523,黔江县503524,酉阳县国土局503525,彭水县国土局520
15、000,贵州省520100,贵阳市520102,南明区520103,云岩区520104,小河镇520111,花溪区520112,乌当区520113,白云区520114,修文县520115,开阳县520116,息烽县520117,清镇市522100,遵义市522101,红花岗区522102,赤水市522103,仁怀市522121,遵义县522122,桐梓县522123,绥阳县522124,正安县522125,道真县522126,务川县522127,凤冈县522128,湄潭县522129,余庆县522132,习水县522200,铜仁地区522221,铜仁市522222,江口县522223,玉屏县5
16、22224,石阡县522225,思南县522226,印江县522227,德江县522228,沿河县522229,松桃县522230,万山特区522300,黔西南州522301,兴义市522322,兴仁县522323,普安县522324,晴隆县522325,贞丰县522326,望谟县522327,册亨县522328,安龙县522400,毕节地区522401,毕节市522422,大方县522423,黔西县522424,金沙县522425,织金县522426,纳雍县522427,威宁县522428,赫章县522500,安顺地区522501,安顺市522526,平坝县522527,普定县522528,
17、关岭县522529,镇宁县522530,紫云县522600,黔东南州522601,凯里市522622,黄平县522623,施秉县522624,三穗县522625,镇远县522626,岑巩县522627,天柱县522628,锦屏县522629,剑河县522630,台江县522631,黎平县522632,榕江县522633,从江县522634,雷山县522635,麻江县522636,丹寨县522700,黔南州522701,都匀市522722,荔波县522723,贵定县522724,福泉市522725,瓮安县522726,独山县522727,平塘县522728,罗甸县522729,长顺县522730
18、,龙里县522731,惠水县522732,三都县522800,六盘水市522821,六枝特区522822,盘县特区522823,水城县522824,钟山区540000,西藏自治区540100,拉萨市540120,城关区540121,林周县540122,当雄县540123,尼木县540124,曲水县540125,堆龙德庆540126,达孜县540127,墨竹工卡县542100,昌都地区542121,昌都县542122,江达县542123,贡觉县542124,类乌齐县542125,丁青县542126,察雅县542127,八宿县542128,左贡县542129,芒康县542132,洛隆县542133
19、,边坝县542200,山南地区542221,乃东县542222,扎朗县542223,贡嘎县542224,桑日县542225,琼结县542226,曲松县542227,措美县542228,洛扎县542229,加查县542231,隆子县542232,错那县542233,浪卡子县542300,日喀则地区542301,日喀则市542322,南木林县542323,江孜县542324,定日县542325,萨迦县542326,拉孜县542327,昂仁县542328,谢通门县542332,定结县542333,仲巴县542334,亚东县542335,吉隆县542336,聂拉木县542337,萨嘎县542338,岗
20、巴县542339,白朗县542340,仁布县542341,康马县542400,那曲地区542421,那曲县542422,嘉黎县542423,比如县542424,聂荣县542425,安多县542426,申扎县542427,索县542428,班戈县542429,巴青县542431,文部办事处542432,双湖办事处542500,阿里地区542521,普兰县542522,札达县542523,噶尔县542524,日土县542525,革吉县542526,改则县542527,措勤县542600,林芝地区542621,林芝县542622,工布江达县542623,米林县542624,墨脱县542625,波密县
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 一个 完整 身份证 效验 程序
链接地址:https://www.31doc.com/p-2497664.html