乙個提取身份證號生日的函式

2021-04-12 21:25:04 字數 1031 閱讀 4664

function sfzztobdayy(ss:string):string;

var i,j :integer;

f:string;

aa:string;

begin

f:='-'  ;

case length(ss) of

15 :begin

i:=7 ;

j:=12;

while i<=j do

begin

aa:=aa+copy(ss,i,1);

if i=8 then

begin

aa:=aa+f;

end;

if i=10 then

begin

aa:=aa+f;

end;

i:=i+1;

end;

end;

18 :begin

i:=7 ;

j:=14;

while i<=j do

begin

aa:=aa+copy(ss,i,1);

if i=10 then

begin

aa:=aa+f;

end;

if i=12 then

begin

aa:=aa+f;

end;

i:=i+1;

end;

end;

19 :begin

i:=7 ;

j:=14;

while i<=j do

begin

aa:=aa+copy(ss,i,1);

if i=10 then

begin

aa:=aa+f;

end;

if i=12 then

begin

aa:=aa+f;

end;

i:=i+1;

end;

end;

end;

ss:=aa;

result := ss;

end;

根據身份證號回填生日

根據身份證號回填生日 開發工具與關鍵技術 visual studio 2015在我們做的很多專案中,我們都可以看到很多賬號的註冊,而在我們註冊賬號的時候總是要填寫很多很多關於個人的一些資訊,而我們的身份證資訊以及生日這些資訊往往就是我們必填的選項,所以我們在填寫完我們的身份證資訊之後,如何讓我們的生...

身份證號判斷男女和生日

身份證 驗證 function checkidcard idcode 獲取餘數 var resisue num 11 var last no check code resisue 1 第一位不可能是0 2 第二位到第六位可以是0 9 3 第七位到第十位是年份,所以七八位為19或者20 4 十一位和十...

身份證號的檢測

ddddddyyyymmddxxsp共18位 公民身份號碼是特徵組合碼,由十七位數字本體碼和一位校驗碼組成。排列順序從左至右依次為 六位數字位址碼,八位數字出生日期碼,三位數字順序碼和一位數字校驗碼。2 位址碼 表示編碼物件常住戶口所在縣 市 旗 區 的行政區劃 按gb t2260的規定執行。3 出...