【反馈】Excel2013函数与公式大全里面有个问题

asd1220

章节23.3.5
验证银行卡号有效性一节里面对luhn算法的描述
“从卡号最后一位数字开始，逆向将偶数位数字，先乘以2，如果乘积为两位数，则将其减去9，再求和”
而给出的代码却是取余9，如下

1. For i = lnglenNum - 1 To 1 Step -2
   
2. lngEven=lngEven+(Mid(Number,i,1)*2 mod 9)
   
3. next
   

复制代码

貌似和描述的不一致吧

而且按照实例代码运算很多银行卡都是无效的


还请老师们帮忙解决我的疑惑，谢谢！

刀羊

这样写比较简洁，
如果按减9方式写，先要判断是否是两位数，只有两位数才减9，一位数则为原数。