REPLACE all 出生日期 with DATE(VAL(SUBSTR(身份证号,7,4)),VAL(SUBSTR(身份证号,11,2)),VAL(SUBSTR(身份证号,13,2))) for LEN(alltrim(身份证号))=18
情况是这样如果身份证是年是19开头的可以替换,如果20开头的提示函数参数的值,类型或数目无效如何更改是vf9
IF VAL(SUBSTR(身份证号,7,4))>=2000
MESSAGEBOX([出生年份已经超过2000])
ELSE
REPLACE all 出生日期 with DATE(VAL(SUBSTR(身份证号,7,4)),VAL(SUBSTR(身份证号,11,2)),VAL(SUBSTR(身份证号,13,2))) for LEN(alltrim(身份证号))=18
ENDIF