[Tasos]

Μετά από τη μέθοδο Αναζήτησης ΑΜΚΑ, συνέχισα τις δοκιμές μoυ, "ανακάλυψα" τον αλγόριθμο
και σας παρουσιάζω τη μέθοδο επικύρωσης ΑΜΚΑ σε VB και στην Excel σαν συνάρτηση.

Συνάρτηση στην Excel:
Στο κελί A2 βρίσκεται ο αριθμός ΑΜΚΑ
Ο τύπος είναι:

=IF(LEN(A2)=11;NOT(MOD(MID(A2;1;1)+(MID(A2;2;1)*2)-(9*(MID(A2;2;1)*2>9))+MID(A2;3;1)+(MID(A2;4;1)*2)-(9*(MID(A2;4;1)*2>9))+MID(A2;5;1)+(MID(A2;6;1)*2)-(9*(MID(A2;6;1)*2>9))+MID(A2;7;1)+(MID(A2;8;1)*2)-(9*(MID(A2;8;1)*2>9))+MID(A2;9;1)+(MID(A2;10;1)*2)-(9*(MID(A2;10;1)*2>9))+MID(A2;11;1);10)))

Ο κώδικας VB:

Option Explicit



Public Sub CheckMyAMKA()

    Debug.Print IsValidAMKA("1005690xxxx")

End Sub



Public Function IsValidAMKA(AMKANumber) As Boolean

    Dim IsEven As Boolean, i%, iDigit%, iSum%, sTMP$, sChr$

    For i = 1 To Len(AMKANumber)

        sChr = Mid(AMKANumber, i, 1)

        If IsNumeric(sChr) Then sTMP = sTMP & sChr

    Next

    If Len(sTMP) <> 11 Then Exit Function

    For i = 1 To Len(sTMP)

        iDigit = Mid(sTMP, i, 1)

        If IsEven Then

            iDigit = iDigit * 2

            If iDigit > 9 Then iDigit = iDigit - 9

        End If

        iSum = iSum + iDigit

        IsEven = Not IsEven

    Next

    IsValidAMKA = iSum Mod 10 = 0

End Function