Read this Gartner Research Note and discover how your IT organization can automate and optimize DevOps processes using a toolchain architecture.
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
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Round 2: SQL to manipulate a substring to contain decimal point running very slow and not updating table. Can anyone help with this?||18||345|
|AS400 DAYOFWEEK(GENERAL DATE)||12||425|
|Bad container path while creating DMS tablespace...help needed. SQLCODE=-298, SQLSTATE=428B2||2||348|
|Best cheaper way to convert to not editable document||6||51|