Question

vf（foxpro）中,如何在身份证号码中提取出生年月

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

Answer 1

使用subs函数。
表中的字段存放了身份证号,该字段假定为“sfzh”：
use 表名 &&打开表
？subs(sfzh,7,6) &&显示身份证号，从sfzh字段中的第七位显示六位，正好是年月。

Answer 2

日期型的格式MM/DD/YYYY只是输出格式，不管输出是什么样，只要输入日期型数据，记住输入格式是{^yyyy-mm-dd}就行了。
下面的语句分别从字符型的身份证号中提取出年、月、日，然后用宏&赋给出生日期：
nian=substr(身份证号,7,4)
yue=substr(身份证号,11,2)
ri=substr(身份证号,13,2)
出生日期={^&nian-&yue-&ri}

Answer 3

PARAMETERS riqi
riqi=ALLTRIM(riqi)
IF LEN(riqi)=15 then
RETURN DATE(VAL('19'+SUBSTR(riqi,7,2)),VAL(SUBSTR(riqi,9,2)),VAL(SUBSTR(riqi,11,2)))
ENDIF

IF LEN(riqi)=18 then
RETURN DATE(VAL(SUBSTR(riqi,7,4)),VAL(SUBSTR(riqi,11,2)),VAL(SUBSTR(riqi,13,2)))
ENDIF

IF LEN(riqi)<>15 AND LEN(riqi)<>18 then
RETURN 'error'
ENDIF
&&存为一个文件，例如nianyueri.prg
&&调用方法：nianyueri('330102198001010119')

Answer 4

因为身份证的长短不一样，在你找到年月日的数值之后，就用date(nian,yue,ri)行了

Answer 5

从身份证号中截取出生日期为字符型，然后用CTOD（）函数转换即可