사업자 등록번호 Check

-- 사업자 등록번호 Check

int i, sum = 0, li_mod, li_reg_no_chk, li_reg_no[10], li_chkvalue[9] = {1,3,7,1,3,7,1,3,5}

For i = 1 to 10
   li_reg_no[i] = integer(mid(as_reg_no, i, 1))
Next

for i = 1 to 9
   sum += li_reg_no[i] * li_chkvalue[i]
Next

sum = sum + ((li_reg_no[9] * 5) / 10)

li_mod = mod(sum, 10)

If li_mod = 0 Then 
   li_reg_no_chk = 0 
Else
   li_reg_no_chk = 10 - li_mod
End IF

If li_reg_no_chk = li_reg_no[10] Then
   // 맞았군 !!!
   return true
Else
   // 주글래?
   return false
End If