【Excel VBA】银行卡信用卡卡号校验功能函数

说明

之前我讲了身份证号校验功能函数，本次就介绍一下，银行卡和信用卡卡号的校验功能函数。参考百度百科中的介绍：

Luhn 算法或是Luhn 公式，也被称作“模10算法”。它是一种简单的校验公式，一般会被用于身份证号码，IMEI号码，美国供应商识别号码，或是加拿大的社会保险号码的验证。该算法是由IBM的科学家Hans Peter Luhn所创造，于1954年1月6日提出该专利的申请，并于1960年8月23日被授予，在美国的专利号为2950048。
该算法一直都被大家所公用，并且时至今日应用也很广泛。它被指定在ISO/IEC7812-1。它的目的不是成为一种加密安全的哈希函数；它的目的是防止意外出现的错误，而不是恶意攻击。很多信用卡和众多的政府身份识别号码都使用该算法从一系列的随机数字中提取有效的数字。

代码code

Sub 引用函数的过程()
  If Luhn("6216600000001234") = True Then
    MsgBox "账号符合Luhn规则"
  Else
    MsgBox "账户不符合Luhn规则请检查"
  End