输入身份证号码自动读取生日与性别(delphi) 您所在的位置:网站首页 vb输入身份证号显示出性别 输入身份证号码自动读取生日与性别(delphi)

输入身份证号码自动读取生日与性别(delphi)

2024-07-18 06:28| 来源: 网络整理| 查看: 265

一、格式介绍:

【15位号码格式】

1、第l一6位数为行政区划代码; 

2、第7-12位数为出生日期代码; 

3、第13---15位数为分配顺序代码; 

(1)、行政区划代码,是指公民第一次申领居民身份证时的常住户口所在地的行政地区。 

(2)、出生日期代码,第7-8位数代表年份(年份前面二位数省略),第9-10位数代表月份(月份为l位数的前面加零)。第11一12位数代表日期(日期为1位数的前面加零)。 

(3)、分配顺序代码,是按人口数统一合理分配以固定顺序给予每个人的顺序号,最末一位数是奇数的分配给男性,偶数分配给女性。

【18位号码格式】

1. 1~6位为地区代码;

(其中1、2位数为各省级政府的代码,3、4位数为地、市级政府的代码,5、6位数为县、区级政府代码。)

2. 7~14位为出生年月日 

3.15~17位为顺序号,是县、区级政府所辖派出所的分配码,每个派出所分配码为10个连续号码,例如“000-009”或“060-069”,其中单数为男性分配码,双数为女性分配码,如遇同年同月同日有两人以上时顺延第二、第三、第四、第五个分配码。如:007的就是个男生 而且和他同年月日生的男生至少有两个 他们的后四位是001* 和 003* 

4.18位为效验位(识别码),通过复杂公式算出,普遍采用计算机自动生成。是前面17位的一种检验代码,如果你改变了前面某个数字而后面的效验代码不响应改变就会被计算软件判断为非法身份正号码。X也是效验代码的一种,代表数字10;

 

二.代码部分:

 功能: 1.实现身份号码的有效性检查 2.实现身份号码出生日期与性别自动匹配

//检查身份证号码是否为有效 function CheckIDCard(IDCard: String):Boolean; const OLD_LENGTH = 15; //15位长度 NEW_LENGTH = 18; //18位长度 DaysOfMonths: array [1..12] of Integer = (31,28,31,30,31,30,31,31,30,31,30,31); //月天数数组 DaysOfMonths1: array [1..12] of Integer = (31,29,31,30,31,30,31,31,30,31,30,31); var Len: Integer; AYear,AMonth,ADay : Integer; function IsNum(Value: String):Boolean; var I: Integer; begin Result := True; for I:=1 to Length(Value) do begin if not(Value[I] in['0'..'9']) then begin Result := False; Exit; end; end; end; begin Result := False; Len := length(IDCard); if (LenOLD_LENGTH) and (LenNEW_LENGTH) then Exit; //检查是否为数字 if Len = OLD_LENGTH then begin //15位 if Not IsNum(IDCard) then Exit; AYear := StrToInt('19'+Copy(IDCard,7,2)); AMonth := StrToInt(Copy(IDCard,9,2)); ADay := StrToInt(Copy(IDCard,11,2)); end else begin //18位 if IDCard[NEW_LENGTH] = 'X' then begin if Not IsNum(Copy(IDCard,1,NEW_LENGTH-1)) then Exit; end else begin if Not IsNum(IDCard) then Exit; end; //检查校验位 if IDCard[NEW_LENGTH] IDCardCheckSum(IDCard) then Exit; AYear := StrToInt(Copy(IDCard,7,4)); AMonth := StrToInt(Copy(IDCard,11,2)); ADay := StrToInt(Copy(IDCard,13,2)); end; //检查年月日的有效性 if not(AMonth in[1..12]) then Exit; if(IsLeapYear(AYear)) then begin if not(ADay in[1..DaysOfMonths1[AMonth]]) then Exit; end else begin if not(ADay in[1..DaysOfMonths[AMonth]]) then Exit; end; Result := True; end; //将15的身份证号码转换为18位 function IDCardTo18(IDCard: string):string; const OLD_LENGTH = 15; var newid: string; begin if length(IDCard) OLD_LENGTH then begin result:= IDCard; Exit; end else begin newid:= IDCard; insert('19', newid, 7); result:= newid + IDCardCheckSum(IDCard); end; end; //代码实现部分 procedure TForm1.Query1idcardSetText(Sender: TField;const Text: String); var __Text,__S: String; __idcard:string; __b : boolean; __sex:Integer; begin inherited; __Text := Text; if __Text = '' then Exit; __idcard:=__text; __b:= CheckIDCard(__Text); //调用CheckIDCard函数,检查号码的有效性 if (length(__idcard) >6) and (length(__idcard)=64) and (Ord(__idcard[1])6) and (length(__idcard)


【本文地址】

公司简介

联系我们

今日新闻

    推荐新闻

      专题文章
        CopyRight 2018-2019 实验室设备网 版权所有