以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  ReadSex(Identify)功能  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=68946)

--  作者:foxC
--  发布时间:2015/5/28 9:05:00
--  ReadSex(Identify)功能

 好奇,根据这个省份证号码,这么可以读出性别呢?这个性别信息是foxtable后台有全国人员的信息吗?不然这么知道男女。。。。。

 

Dim Identify As String = "410110197109172433"
Dim
Sex As String = ReadSex(Identify)
Output.Show(Sex)


--  作者:Bin
--  发布时间:2015/5/28 9:07:00
--  
呵呵,身份证号码直接有标识的.

身份证号码各位数字的含义如下: 
1)前1、2位数字表示:所在省份的代码; 
(2)第3、4位数字表示:所在城市的代码; 
(3)第5、6位数字表示:所在区县的代码; 
(4)第7~14位数字表示:出生年、月、日; 
(5)第15、16位数字表示:所在地的派出所的代码; 
(6)第17位数字表示性别:奇数表示男性,偶数表示女性; 
(7)第18位数字是校检码:通过计算得出的;

--  作者:foxC
--  发布时间:2015/5/28 9:12:00
--  
牛!理解了,谢谢