JAN バーコードのチェックディジット算出方法

ユーザー定義関数 Public Function JANCD(argCode As Variant) As Variant Dim strCode As String Dim intDigit As Integer Dim intPos As Integer Dim intCD As Integer If IsNull(argCode) Then Exit Function If Not IsNumeric(argCode) Then Exit Function Select Case Len(argCode) Case 7, 8 strCode = Left(argCode, 7) For intPos = 1 To 7 Step 2 intDigit = intDigit + CInt(Mid(strCode, intPos, 1)) Next intDigit = intDigit