Question

vf中如何根据身份证号码得到出生日期和性别

我的意思是说在visual foxpro 7.0中，怎样从身份证号中截取出生日期。我的难点是出生日期那一栏是“日期型”的，YYYY/MM/DD
我是给学生的信息库操作

提示该问答中所提及的号码未经验证，请注意甄别。

Answer 1

详细内容：身份证号码的最后四位数代表什么意思？
答案： 16位为地区代码，其中1、2位数为各省级政府的代码，3、4位数为地、市级政府的代码，5、6位数为县、区级政府代码。如13（河北省）04（邯郸市）29（永年县）
714位为出生年月日
1517位为顺序号，是县、区级政府所辖派出所的分配码，每个派出所分配码为10个连续号码，例如“000-009”或“060-069”，其中单数为男性分配码，双数为女性分配码，如遇同年同月同日有两人以上时顺延第二、第三、第四、第五个分配码。如：007的就是个男生 而且和他同年月日生的男生至少有两个 他们的后四位是001* 和 003*
18位为效验位（识别码），通过复杂公式算出，普遍采用计算机自动生成。是前面17位的一种检验代码，如果你改变了前面某个数字而后面的效验代码不响应改变就会被计算软件判断为非法身份正号码。X也是效验代码的一中
15位的身份证号码：
（1）16位为地区代码
（2）78位为出生年份(2位)，910位为出生月份，1112位为出生日期
（3）第1315位为顺序号，并能够判断性别，奇数为男，偶数为女。

Answer 2

CLOSE ALL
CLEAR ALL
CLEAR

DO WHILE .T.
ACCEPT "请输入身份证号：" TO cGetID
IF LEN(STRTRAN(cGetID, " ")) = 15 OR LEN(STRTRAN(cGetID, " ")) = 18
EXIT
ELSE
IF EMPTY(cGetID)
WAIT WINDOW ("未输入任何字符！")
CANCEL
ENDIF
ENDIF
ENDDO

IF LEN(cGetID) = 18
?"这是第二代身份证号。"
?"身份证持有者的出生日期为："
??SUBSTR(cGetID, 7, 4) + "年" + SUBSTR(cGetID, 11, 2) + "月" + SUBSTR(cGetID, 13, 2) + "日"
?"该持有者为："
??IIF(MOD(VAL(SUBSTR(cGetID, 17, 1)), 2) = 0, "女", "男")
??"性"
ELSE
?"这是第一代身份证号。"
?"身份证持有者的出生日期为："
??"19" + SUBSTR(cGetID, 7, 2) + "年" + SUBSTR(cGetID, 9, 2) + "月" + SUBSTR(cGetID, 11, 2) + "日"
?"该持有者为："
??IIF(MOD(VAL(SUBSTR(cGetID, 15, 1)), 2) = 0, "女", "男")
??"性"
ENDIF

*** 注：未做奇偶校验和日期的有效性检验！

Answer 3

第七位开始到14位是生日，最后一位单数是男双数是 女

Answer 4

220304198112130435

2203是指市区编号，
19811213是年月日，