Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
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
Join the community of 500,000 technology professionals and ask your questions.