Επικύρωση ΑΜΚΑ σε Excel

[Tasos]

Εργασία:
Έλεγχος εγκυρότητας ΑΜΚΑ με συνάρτηση υπολογιστικού φύλλου Excel.

	A	B
1	AMKA	Τύπος
2	211288xxxxx	TRUE

Τύποι

Κελί Τύπος B2 =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)))

Με τύπο πίνακα ( Γιώργος Καπετανόπουλος - Τάσος Φιλοξενίδης ):

Τύποι

Κελί Τύπος B2 {=IF(LEN(A2)=11;MOD(SUM(MID(A2;ROW($1:$11);1)*1;MID(A2;{2\4\6\8\10};1)*1;-9*(MID(A2;{2\4\6\8\10};1)*2>9));10)=0)}

Τύπος πίνακα: Δημιουργεί { } όταν κλείσετε τον τύπο με CTRL+SHIFT+ENTER