/**/
/*modify bzl 2007-07-12根据身份证号码生成生日和性别*/
String ls_date,ls_id,ls_sex,ls_month,ls_day,ls_year
Date ld_birthday
ls_id = data
If Len(ls_id) = 15 Then
ls_date = Mid(ls_id, 7 , 6 )
ls_sex = MID(ls_id, 15 , 1 )
ls_year = Mid(ls_id, 7 , 2 )
String ls_date,ls_id,ls_sex,ls_month,ls_day,ls_year
Date ld_birthday
ls_id = data
If Len(ls_id) = 15 Then
ls_date = Mid(ls_id, 7 , 6 )
ls_sex = MID(ls_id, 15 , 1 )
ls_year = Mid(ls_id, 7 , 2 )