Powerbuilder编写身份证校验码

 public function boolean of_calc_cardid_verifycode (string as_cardid, ref string as_verifycode);
 /*
 计算身份证校验码 王贤进 2014.03.15
 参数：string as_cardid 身份证的前17位或18位（第18位可随便）
     ref string as_verifycode 返回校验码，即身份证的第18位值
 返回值：    TRUE为有效身份证号,并将校验码在as_verifycode中返回
             FALSE为无效身份证号
 原理参考：http://zh.wikisource.org/wiki/GB_11643-1999_%E5%85%AC%E6%B0%91%E8%BA%AB%E4%BB%BD%E5%8F%B7%E7%A0%81
 */
 char Ai[]
 int Wi[] = {, , , , , , , , , , , , , , , , }
 char codeTable[ to ]="10X98765432"
 string ls_carid
 ls_carid = Trim(as_cardid)
 IF Len(ls_carid) <>  AND len(ls_carid)<> Then Return false
 Ai = Left(ls_carid,)
 IF Not Match(Ai,"^[0-9]+$") Then Return false

 long ll_l,ll_sum
 ll_sum =
 for ll_l =  To
     ll_sum += long(Ai[ll_l]) * Wi[ll_l]
 Next

 as_verifycode = codeTable[ Mod(ll_sum,)]
 Return True
 end function