记录背景: 需要在excel中查询出组合码,对应的唯一标识码. 举例 组合码:4+5+6+9+1*2 标识码:A1 界面随意输入组合码:1*2+4+5+6+9 输出标识码:A1 VBA实现: Private Sub CommandButton1_Click() TextBox2.Value = "" Dim str, searchValue Dim i i = 1 searchValue = TextBox1.Value Dim arr
完整的tk算法: //源自http://translate.google.cn/ TKK=eval('((function(){var a\x3d618632403;var b\x3d1485484074;return 412204+\x27.\x27+(a+b)})())'); //会变动 //源自http://translate.google.cn/translate/releases/twsfe_20161212_RC00/r/js/desktop_module_main.js var g
VBA的 Round采用的是银行家算法(rounds to the nearest even number) Round(1.5) = 2 Round(0.5) = 在Oracle中实现银行家算法 SQL> create or replace function bankers_round (val number, rnd_digit number := 0) return number is 2 v_rnd_digit number; 3 v_remainder number; 4 begin
Luhn算法由IBM的Hans Peter Luhn发明,又称为"模10"算法,是一种简单的校验和算法,用来验证识别号,一般会被用于身份证号码,信用卡号.IMEI号.社会保险号的验证.它的算法简单,并只采用最后一位数字作为校验位,可以有效防止偶然的输入性错误. Luhn算法只能用于简单的校验,不能用于加密算法.Luhn算法可以检测到以下输入性错误:所有的单位数字错误,如 210写作215:能检测到绝大多数的临位错位,比如315写作351,但是只有两位的情况下无法检测,比如09写作90:
LUHN算法,主要用来计算信用卡等证件号码的合法性. 1.从卡号最后一位数字开始,偶数位乘以2,如果乘以2的结果是两位数,将两个位上数字相加保存. 2.把所有数字相加,得到总和. 3.如果信用卡号码是合法的,总和可以被10整除. 英文描述: 1.Counting from the check digit, which is the rightmost, and moving left, double the value of every second digit. 2.Sum the digit
计算IMEI号的校验位 移动设备国际识别码(IMEI:International Mobile Equipment Identification Number)是差别移动设备的标志,具有唯一性,贴在手机背面的标志上,而且储存在移动设备中,可用于监控被窃或无效的移动设备,它也是该手机在厂家的"档案"和"身份证号".IMEI码由GSM(全球移动通信协会)统一分配,授权BABT(英国通信认证管理委员会)审受.其总长为15位,每位数字仅使用0-9的数字(含义见下文). IM