根据身份证号码生成生日和性别

 

 /**//*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)
        ls_month = Mid(ls_id,9,2)
    ls_day =Mid(ls_id,11,2)
    ls_year = '19' + ls_year
 ElseIf Len(ls_id) = 18 Then
   ls_date = Mid(ls_id,7,8)
   ls_sex = Mid(ls_id,17,1)
   ls_year = Mid(ls_id,7,4)
   ls_month = Mid(ls_id,11,2)
     ls_day =Mid(ls_id,13,2)
 Else
  MessageBox("错误","身份证号码只能为15位或18位，请重新输入！^_^' ")
  return 2
 End   If
 
 if not (((Integer(ls_year))>=1900) and ((Integer(ls_year))<=2999)) then
  messagebox('提示:','对不起，你输入的身份证号码年份不对，请检查')
  return 2  
 end if
  if not (((Integer(ls_month))>=01) and ((integer(ls_month))<=12)) then
  messagebox('提示:','对不起，你输入的身份证号码月份不对，请检查')
  return 2
  end if
 if not (((Integer(ls_day))>=01) and ((Integer(ls_day))<=31)) then
  messagebox('提示:','对不起，你输入的日期份证号码不对，请检查')
  return 2  
 end if
 ls_date = Left(ls_date, Len(ls_date) - 4)+"-"+Mid(ls_date,Len(ls_date)-4+1,2)+ "-" + Right(ls_date,2)   
 ld_birthday = Date(ls_date)
 if Mod(integer(ls_sex),2)=0 then
  ls_sex = '女'
 else
  ls_sex = '男'
 end if