Data commit

Task/SEDOLs/VBA/sedols.vba

@@ -0,0 +1,26 @@
+Function getSedolCheckDigit(Input1)
+    Dim mult(6) As Integer
+    mult(1) = 1: mult(2) = 3: mult(3) = 1
+    mult(4) = 7: mult(5) = 3: mult(6) = 9
+    If Len(Input1) <> 6 Then
+        getSedolCheckDigit = "Six chars only please"
+        Exit Function
+    End If
+    Input1 = UCase(Input1)
+    Total = 0
+    For i = 1 To 6
+        s1 = Mid(Input1, i, 1)
+        If (s1 = "A") Or (s1 = "E") Or (s1 = "I") Or (s1 = "O") Or (s1 = "U") Then
+                getSedolCheckDigit = "No vowels"
+                Exit Function
+        End If
+        If (Asc(s1) >= 48) And (Asc(s1) <= 57) Then
+                Total = Total + Val(s1) * mult(i)
+        Else
+                Total = Total + (Asc(s1) - 55) * mult(i)
+        End If
+
+    Next i
+    getSedolCheckDigit = Input1 + CStr((10 - (Total Mod 10)) Mod 10)
+
+End Function