PB里实现EAN-13的算法
long n1,n2,n3,n4,n5,n6,n7,n8,n9,n10,n11,n12,n13long ll_n1,ll_n2,ll_n3,ll_n4,ll_n5,ll_n6
string ls_str1,ls_str2
ls_str1 = sle_1.text
n1 = long(mid(ls_str1,1,1)) //取最高位
n2 = long(mid(ls_str1,2,1))
n3 = long(mid(ls_str1,3,1))
n4 = long(mid(ls_str1,4,1))
n5 = long(mid(ls_str1,5,1))
n6 = long(mid(ls_str1,6,1))
n7 = long(mid(ls_str1,7,1))
n8 = long(mid(ls_str1,8,1))
n9 = long(mid(ls_str1,9,1))
n10 = long(mid(ls_str1,10,1))
n11 = long(mid(ls_str1,11,1))
n12 = long(mid(ls_str1,12,1))
ll_n1 = n1+n3+n5+n7+n9+n11
ll_n2 = (n2+n4+n6+n8+n10+n12)*3 //单数*3
ll_n3 = mod(ll_n1,10) + mod(ll_n2,10)
ll_n4 = mod(ll_n3,10)
if ll_n4 = 0 then
// ll_n5 = mod(ll_n3/10,10)
// n13 = 10 - ll_n5
n13 = 0
else
n13 = 10 - ll_n4
end if
sle_2.text = string(n1) + string(n2) + string(n3) + string(n4) + string(n5) + string(n6) + string(n7) + string(n8) + string(n9) + string(n10) + string(n11) + string(n12) + string(n13)
PB8.0下测试通过。 函数版本 多谢分享！！！！！！！！！！！！ 谢谢分享！！！！！
页:
[1]