Проверка СНИЛС

@TYM · Регистрация: 20.08.2010

Студворк — интернет-сервис помощи студентам

Добрый день!

Нужно было реализовать проверку СНИЛСа (страховой номер индивидуального лицевого счета). Нашел пример, как высчитывается контрольное число. Написал следующее:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Private Sub Command1_Click()
'СНИЛС - проверка контрольной суммы
txtSNILS.Text = Trim$(txtSNILS.Text)
    
    Dim i As Integer, s As String, j As Integer, d As Integer
    Dim v(1 To 9) As Integer
    
        v(1) = 9
        v(2) = 8
        v(3) = 7
        v(4) = 6
        v(5) = 5
        v(6) = 4
        v(7) = 3
        v(8) = 2
        v(9) = 1
    
    For i = 1 To 9
        s = Mid$(txtSNILS.Text, i, 1)
        j = j + CInt(v(i)) * CInt(s)
 
    Next i
 
d = Right$(txtSNILS.Text, 2)
 
 
    'если сумма контрольного числа  >101
    If j > 101 Then
    j = j Mod 101
 
            If j = d Then MsgBox "СНИЛС верный!"    'если сумма контрольного числа <100
            If Not (j = d) Then MsgBox "СНИЛС - неверный!"
    
    Else
 
    'если сумма контрольного числа =100 или =101
    If (j = 100 Or j = 101) Then j = "00"
            If j = d Then MsgBox "СНИЛС верный!"    'если сумма контрольного числа <100
            If Not (j = d) Then MsgBox "СНИЛС - неверный!"
 
    End If
    
End Sub

Вроде бы всё работает правильно, но мне не нравится сам код, громоздкий какой то.. Помогите его как нибудь уменьшить и сократить естественно без потери функционала )) Заранее благодарен! С уважением, TYM.

@gaw · 01.02.2013, 12:49

а если j<100, или такой вариант не мб
и дайте для проверки верный СНИЛС

Добавлено через 40 секунд
и нужна ли проверка исходного числа на длину например

@TYM · 01.02.2013, 12:57 **[ТС]**

нет, проверка на длину не нужна. Если j<100, тогда j равна контрольному числу (это 2 последние цифры СНИЛС).

j<100 СНИЛС -15210411494
j>101 СНИЛС - 04214299327
j =100 или =101 СНИЛС 22224222200 или 22224222300

@gaw · 01.02.2013, 13:59

надо проверить

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub Command1_Click()
 
'СНИЛС - проверка контрольной суммы
   
    Dim i%, j%, ms$
    Dim kt$, s$
    Dim t
t = Trim(txtSNILS.Text): kt = Right(t, 2)
Do While InStr(1, t, "-") > 0
   t = Replace(t, "-", "")
Loop
t = (Mid(t, 1, 9))
Do While InStr(1, t, " ") > 0
    t = Replace(t, " ", "")
Loop
t = Val(t)
 
    For i = 1 To 9
        j = j + (10 - i) * (t \ (10 ^ (9 - i)) Mod 10)
    Next i
 
Select Case j
Case 100, 101: s = "00"
Case Is > 101: s = CStr(j Mod 101)
Case Else: s = CStr(j)
End Select
 
 MsgBox IIf(kt = s, "СНИЛС верный!", "СНИЛС - неверный!")
 
End Sub

Добавлено через 1 минуту
строки 9-17 можно убрать, если вводить в формате 22224222300
если 222-242-223 00 , то оставить

@TYM · 01.02.2013, 14:11 **[ТС]**

проверил, этот код тоже работоспособный. Спасибо за помощь.

@alexqwesa · 05.03.2018, 10:19

слегка поправил ( добавил - If Len(s) = 1 Then s = "0" & s )

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Function snils_check(txtSNILS)
 
'snils - проверка контрольной суммы
   
   
 
    Dim i%, j%, ms$
    Dim kt$, s$
    Dim t
t = Trim(txtSNILS.text): kt = Right(t, 2)
Do While InStr(1, t, "-") > 0
   t = Replace(t, "-", "")
Loop
t = (Mid(t, 1, 9))
Do While InStr(1, t, " ") > 0
    t = Replace(t, " ", "")
Loop
t = Val(t)
 
    For i = 1 To 9
        j = j + (10 - i) * (t \ (10 ^ (9 - i)) Mod 10)
    Next i
 
Select Case j
Case 100, 101: s = "00"
Case Is > 101: s = CStr(j Mod 101)
Case Else: s = CStr(j)
End Select
 
If Len(s) = 1 Then s = "0" & s
 
 
 
If kt = s Then
    snils_check = True
Else
    snils_check = False
End If
    
End Function
 
 
Sub my_test()
   
    For Each ncell In Range("A2:a100")
        If snils_check(ncell) Then
            Debug.Print "+++"
        Else
            ncell.Interior.Color = RGB(255, 0, 0)
            Debug.Print "!!!!!!!!!!!!!!"
        End If
    Next ncell
End Sub

@sergeos · 05.03.2018, 12:58

alexqwesa, этот фрагмент не красивый

Visual Basic
1
2
3
4
5
If kt = s Then
    snils_check = True
Else
    snils_check = False
End If

лучше так:

Visual Basic
1
    snils_check = kt = s

Новые блоги и статьи Все статьи Все блоги /
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка SDL3 и Box2D из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 19.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	01.02.2013, 12:49
	а если j<100, или такой вариант не мб и дайте для проверки верный СНИЛС Добавлено через 40 секунд и нужна ли проверка исходного числа на длину например 0

@TYM 46 / 8 / 1 Регистрация: 20.08.2010 Сообщений: 53
	01.02.2013, 12:57 [ТС]
	нет, проверка на длину не нужна. Если j<100, тогда j равна контрольному числу (это 2 последние цифры СНИЛС). j<100 СНИЛС -15210411494 j>101 СНИЛС - 04214299327 j =100 или =101 СНИЛС 22224222200 или 22224222300 0

@TYM 46 / 8 / 1 Регистрация: 20.08.2010 Сообщений: 53
	01.02.2013, 14:11 [ТС]
	проверил, этот код тоже работоспособный. Спасибо за помощь. 0