Public Function UPCcd(BarCode As String) As Integer Dim i As Integer Dim TotalOdd As Integer Dim TotalEven As Integer Dim Total As Integer BarCode = Trim(BarCode) If BarCode "" Then 'get odd numbers For i = 1 To Len(BarCode) Step 2 TotalOdd = TotalOdd + CInt(Mid(BarCode, i, 1)) Next i TotalOdd = TotalOdd * 3 'get even numbers i = 0 For i = 2 To Len(BarCode) Step 2 TotalEven = TotalEven + CInt(Mid(BarCode, i, 1)) Next i Total = TotalOdd + TotalEven UPCcd = 10 - IIf(Right(Total, 1) = 0, 10, _ Right(Total, 1)) End If End Function
↧
