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
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