Shen, Zhonghua Daniel shenzhonghua

cimnine / gist:7913819

Last active July 29, 2021 22:01

Luhn Algorithm in VBA (for example for use in Excel)

	' Version 1.0.0
	' You may use these functions directly in Excel: "=luhnCheck(A55)"


	' probably only needed internally
	Function luhnSum(InVal As String) As Integer
	Dim evenSum As Integer
	Dim oddSum As Integer

	evenSum = 0