Написать программу для определение контрольной цифры для кодов станций, грузов и номеров вагонов в VBA (Алгоритм Луна). Коды: 35080 (станция), 01801 (груз), 2111111 (вагон).
Function Lun(Num As String) As Integer
Dim Sum As Integer, i As Integer, p As Integer
For i = 1 To Len(Num) - 1
p = Mid(Num, Len(Num) - i, 1)
If i Mod 2 <> 0 Then
p = 2 * p
If (p > 9) Then p = p - 9
End If
Sum = Sum + P
Next i
Sum = 10 - (Sum Mod 10)
If Sum = 10 Then Sum = 0
'Mid$(Num, Len(Num), 1) = Sum
Lun = Sum
End Function