Office 365 не работает функция "проверка снилс"

mart0vskiy Пользователь Сообщений: 1 Регистрация: 12.10.2023	#1 12.10.2023 03:11:30 Добрый день, при проверке списка СНИЛСов формулой =CheckSNILS всегда получается результат ЛОЖЬ, хотя я уверен что снилс верен, как добиться правильной работы данной формулы ?

DJMC

Пользователь

Сообщений: 549 Регистрация: 06.05.2020

01.11.2023 14:34:52

=ТЕКСТ(ОСТАТ(ОСТАТ(СУММ(ПСТР(A1;{1;2;3;5;6;7;9;10;11};1)*{9;8;7;6;5;4;3;2;1});101);100);"00")

Код

Public Function VerSnils(snilstxt As String, v As Boolean)
    Dim i%, j%, ms$
    Dim kt$, s$
    Dim t
    t = Trim(snilstxt): 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 v Then
        VerSnils = CBool(IIf(kt = s, 1, 0))
    Else
        VerSnils = s
    End If
End Function

Николай Павлов Модератор Сообщений: 887 Регистрация: 21.09.2012	#3 13.11.2023 13:48:59 А какие именно номера СНИЛС вы проверяете? Пришлите пару примеров - я посмотрю, что не так.