一個(gè)完整身份證效驗(yàn)程序

1、    作者:閆磊 E_Mail:YanLiGis根據(jù)中華人民共和國(guó)國(guó)家標(biāo)準(zhǔn) GB 11643-1999中有關(guān)公民身份號(hào)碼的規(guī)定，公民身份號(hào)碼是特征組合碼18位：由十七位數(shù)字本體碼和一位數(shù)字校驗(yàn)碼組成。排列順序從左至右依次為：六位數(shù)字地址碼，八位數(shù)字出生日期碼，三位數(shù)字順序碼和一位數(shù)字校驗(yàn)碼。 地址碼表示編碼對(duì)象常住戶(hù)口所在縣(市、旗、區(qū))的行政區(qū)劃代碼。生日期碼表示編碼對(duì)象出生的年、月、日，其中年份用四位數(shù)字表示，年、月、日之間不用分隔符。順序碼表示同一地址碼所標(biāo)識(shí)的區(qū)域范圍內(nèi)，對(duì)同年、月、日出生的人員編定的順序號(hào)。順序碼的奇數(shù)分給男性，偶數(shù)分給女性。

2、15位：六位數(shù)字地址碼，六位數(shù)字出生日期碼，三位數(shù)字順序碼和一位數(shù)字校驗(yàn)碼。 var    codeInfoTst: Tstrings; /總    codeTst: Tstrings; /代碼    InfoTst: Tstrings; /地址信息function identityInfo(identitycode: string): string;/由年月日判斷是否為有效日期    function IsDate(Year, Mon

3、th, Day: string): Boolean;    var        st: string;    begin        st := Year + '-' + Month + '-' + day;        try &

4、#160;          StrToDate(st);            Result := True;        except            Result :

5、= False;        end;    end;    function getdetailedFromCode(code: string): string; /由身份證的前六位獲得省份縣市信息    var        Index: integer;     

6、;   St: string;    begin        index := codeTst.IndexOf(code);        if index = -1 then        begin       &

7、#160;    Result := ''            exit;        end;        st := infoTstindex; /縣        code

8、 := copy(code, 1, 4) + '00'        index := codeTst.IndexOf(code);        if index = -1 then        begin           &

9、#160;Result := st;            exit;        end;        st := infoTstindex + st; /市        code := copy(code, 1, 2) + 

10、9;0000'        index := codeTst.IndexOf(code);        if index = -1 then        begin            Result := st; 

11、           exit;        end;        st := infoTstindex + st; /省        Result := st;    end;var 

12、0;  YLYear, YLMonth, YlDay, id, sex, code: string;    E: integer;    St: string;begin    e := Length(identitycode);    if (e <> 18) or (e <> 15) then result := ''    if (

13、e = 18) then    begin        YLYear := copy(identitycode, 7, 4);        YlMonth := copy(identitycode, 11, 2);        YLday := copy(identitycode, 13, 2);        id := copy(identitycode, 18,1);    end;    if (e = 15) then    begin        YLYear := '19' + copy(identitycode, 7, 2);