vfp下的问题？？？

来源：百度知道 编辑：UC知道 时间：2024/06/05 09:14:20
表中一个字段是身份证号
想把其中的出生日期提取出来
该如何做啊??
身份证号的字段名是sfzh
出生日期的字段名是csrq

身份证有15位和18位的,所以要有两种判断,
关键代码
=================
do while .not.eof()
do case
case len(alltrim(sfzh))=18
replace csrq with substr(alltrim(sfzh),7,8)
case len(alltrim(sfzh))=15
replace csrq with substr(alltrim(sfzh),7,6)
endcase
skip
enddo
=========================