提取身份证信息

悠悠 2022-03-28 04:13 246阅读 0赞

function GetIDInfoGetDInfo(const CardNo: string; var Sex,

BirthDay: string; var Age: Integer; var Area: string): Integer;

var

iCardNo: Int64;

iYear, iSex: Integer;

sBirth, fBirth: string;

dBirth: TDateTime;

begin

Result := 0; //表示身份证输入正确

if (Length(CardNo) <> 15) and (Length(CardNo) <> 18) then

begin

Result := 1; //位长不对

Exit;

end;

if Length(CardNo) = 15 then

begin

if not TryStrToInt64(CardNo, iCardNo) then

begin

Result := 2; //必须为数字

Exit;

end;

sBirth := '19' + Copy(CardNo, 7, 6);

iSex := StrToInt(Copy(CardNo, 15, 1));

if Odd(iSex) then

Sex := '男'

else

Sex := '女';

end

else

begin

if not TryStrToInt64(Copy(CardNo, 1, 17), iCardNo) then

begin

Result := 2; //前17位必须为数字

Exit;

end;

sBirth := Copy(CardNo, 7, 8);

iSex := StrToInt(Copy(CardNo, 17, 1));

case iSex of

0: Sex := '未知';

1: Sex := '男';

2: Sex := '女';

9: Sex := '未说明';

end;

end;

fBirth := Format('%s-%s-%s', \[Copy(sBirth, 1, 4),

Copy(sBirth, 5, 2), Copy(sBirth, 7, 2)\]);

if not TryStrToDate(fBirth, dBirth) then

begin

Result := 3; //生日格式不对

Exit;

end;

iYear := YearsBetween(Date, dBirth);

if (iYear < 0) or (iYear >= 120) then

begin

Result := 4; //年龄错误

Exit;

end;

BirthDay := sBirth;

Age := iYear;

Area := GetArea(StrToInt(Copy(CardNo, 1, 2)));

end;

发表评论取消回复

表情：

评论列表（有 0 条评论，246人围观）

还没有评论，来说两句吧...

相关阅读

相关个人主页信息提取器

本文共731个字，预计阅读时间需要3分钟。简介从研究人员的主页(HTML)中提取信息，并将信息自动分为三类(您可以添加更多的类)。支持中英文页面。可以分成的类别

亦凉/ 2023年02月19日 11:25/ 0 赞/ 56 阅读

相关基于Python的身份证校验及数据提取

> 根据GB11643-1999公民身份证号码是特征组合码，由十七位数字本体码和一位数字校验码组成，排列顺序从左至右依次为： > > 1. 六位数字地址码 > 2. 八位

不念不忘少年蓝@/ 2022年12月20日 08:45/ 0 赞/ 228 阅读

相关 Python批量处理身份证提取有关信息

情境导入：假如我们有一个这样的需求，想通过身份证知晓一些身份信息。比如：地区码、生日、年龄、性别等。同时，通过生日，我们还可以知晓农历生日、出生周、星座、生肖信息；通

以你之姓@/ 2022年11月15日 12:23/ 0 赞/ 458 阅读

相关身份证检验信息

自己在写代码的时候经常遇到检测身份证信息的，之前也看到很多大神写的栗子，今天来总结一下。 <?php / 身份检验信息 /

心已赠人/ 2022年06月11日 00:55/ 0 赞/ 177 阅读

相关身份证信息中间变星

定义一个工具类把下面代码放进去等到需要获取的时候调用就可以 public class StringXing \{ public static Str

快来打我*/ 2022年06月10日 11:00/ 0 赞/ 205 阅读

相关车牌号和身份证号的提取

![这里写图片描述][SouthEast] ![这里写图片描述][SouthEast 1] ![这里写图片描述][SouthEast 2] ![这里写图片描述][S

秒速五厘米/ 2022年06月05日 12:24/ 0 赞/ 305 阅读

相关 java手机号、身份证信息脱敏

package com.sinosun.travel.util; import org.apache.commons.lang.StringUtils

港控/mmm°/ 2022年05月15日 04:40/ 0 赞/ 573 阅读

相关提取身份证信息

function GetIDInfoGetDInfo(const CardNo: string; var Sex, BirthDay: string; var Age: In

悠悠/ 2022年03月28日 04:13/ 0 赞/ 247 阅读

相关身份证号码隐藏信息

身份证号码18位，小小一长串字符，隐藏的可以获取的信息却不少，做IT开发，信息读取，信息规则了解必不可少； 1、譬如：430281（前六位所在地区编码,第1-2位是省级

客官°小女子只卖身不卖艺/ 2021年11月16日 11:20/ 0 赞/ 589 阅读

相关 Python网络爬虫与信息提取【提取,规则】

网络爬虫之规则常用的ide工具 ![20200915103834426.png][] Requests库入门网站：`http://www.python-

谁借莪１个温暖的怀抱￠/ 2021年07月04日 13:20/ 0 赞/ 562 阅读