1、条形码校验码的计算公式商品条形码是一个13位数，它是商品的“身份证”条形码中前8位是厂商识别代码，接着4位是商品项目代码，最后一位是校验码，校验码是由前12位数按一定公式计算而得出的其计算公式见下表步骤举例说明1自右向左编号某商品条形码为：9X（X为校验码）位置序号13121110987654321代码690123456789X正序号123456789101112计算,1286930132334536738932从序号2开始，求出偶数位上的数字之和:9+7+5+3+1+9=3433=343=1024从序号3开始，求出奇数位上的数字之和8+6+4+2+0+6=265+=102+26=1286用大

2、于或等于结果且为10的最小整数倍的数减去，其差即为校验码值130-128=2校验码X=2128末位810-8=2,末位2校验码X=22,3的意思是偶位数 乘以34的意思是奇位数 不变5的意思是上面结果相加6说的很复杂，间化起来，就是，5的结果取末位。然后10 减末位后，再取末位比方说：128的末位是8，10-8的末位是2。(这里主要是解决末位是0的问题)VBA的代码如下，供参考Private Function UniCodX_S(UniCod_S) Dim i_ucx UniCod_S = 8 UniCod_S = 9 If Len(UniCod_S) 12 Then MsgBox Unicod_S变量长度需为12 Exit Function End If For i_ucx = 1 To 12 If Int(i_ucx / 2) = i_ucx / 2 Then UniCodX_S = UniCodX_S + Mid(UniCod_S, i_ucx, 1) * 3 Else: UniCodX_S = UniCodX_S + Mid(UniCod_S, i_ucx, 1) * 1 End If Next UniCodX_S = Rig