Function CheckDigitEAN13(PN12 As String) As Integer Factor = 3 WeightedTotal = 0 For I = Len(PN12) To 1 Step -1 'Get the value of each number starting at the end CurrentCharNum = Mid(PN12, I, 1) 'Multiply by the weighting factor which is 3,1,3,1... 'and add the sum together WeightedTotal = WeightedTotal + CurrentCharNum * Factor 'Change factor for next calculation Factor = 4 - Factor Next I 'Find the CheckDigit by finding the number + WeightedTotal that = a multiple of 10 'Divide by 10, get the remainder and subtract from 10 I = (WeightedTotal Mod 10) If I <> 0 Then CheckDigit = (10 - I) Else CheckDigit = 0 End If CheckDigitEAN13 = CheckDigit End Function
|what is the iSeries data replication software available in market or indian market||5||584|
|determine create date for a DB2 LUW Table||4||125|
|Best cheaper way to convert to not editable document||6||41|
|iSeries DB2 SQL - Request user input||12||33|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
18 Experts available now in Live!