身份证校验[pb源码]

public function integer isvalid (string as_idcard, integer ai_mode, ref string as_refvalue);
/*************身份证检验以及识别地区**********************

原型：　integer IsVaid(string as_idcard , integer ai_mode , ref string as_refvalue) ; 
参数说明：as_idcard 传入的身份证号
 as_idcard
  XXXXXX YYYYMMDD WWW P
ls_zone ls_date ls_sn li_vi
ls_year ls_month ls_day

 ai_mode 所使用识别码的模式
  值：MODE_1995　95版的区域代码
     MODE_2002　02版的区域代码
as_refvalue 返回该身份证所携带的信息
当返回值>0时返回空
功能：　校验身份证的有效性，不对其真实性校验
返回值：
0  身份证校验正确
16  区域码错误
8  年　错误
4  月　错误
2  日　错误
1 效验码错误

还可返回任意组合的值
********************************************************/
constant integer MODE_1995 = 0
constant integer MODE_2002 = 1
integer li_ret , eof , li_vi , ret_value = 0
string ls_file , ls_str , ls_code 
st