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

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


<table style="font-family: Arial,Arial; font-size: 10pt; background-color: rgb(255, 255, 255);" border="1" cellpadding="0" cellspacing="0"><colgroup><col style="width: 30px;"><col style="width: 122px;"><col style="width: 80px;"></colgroup><tbody><tr style="text-align: center; font-size: 8pt; background-color: rgb(202, 202, 202);"><td>
</td><td>A</td><td>B</td></tr><tr style="height: 17px;"><td style="text-align: center; font-size: 8pt; background-color: rgb(202, 202, 202);"> 1</td><td style="border: 1px solid rgb(0, 0, 0); text-align: center; font-weight: bold; background-color: rgb(255, 255, 0);"> AMKA</td><td style="text-align: center; font-weight: bold; border-top-color: rgb(0, 0, 0); border-right-color: rgb(0, 0, 0); border-bottom-color: rgb(0, 0, 0); border-top-width: 1px; border-right-width: 1px; border-bottom-width: 1px; border-top-style: solid; border-right-style: solid; border-bottom-style: solid; background-color: rgb(255, 255, 0);">Τύπος</td></tr><tr style="height: 17px;"><td style="text-align: center; font-size: 8pt; background-color: rgb(202, 202, 202);">2</td><td style="text-align: left; border-right-color: rgb(0, 0, 0); border-bottom-color: rgb(0, 0, 0); border-left-color: rgb(0, 0, 0); border-right-width: 1px; border-bottom-width: 1px; border-left-width: 1px; border-right-style: solid; border-bottom-style: solid; border-left-style: solid;"> 211288xxxxx</td><td style="text-align: center; border-right-color: rgb(0, 0, 0); border-bottom-color: rgb(0, 0, 0); border-right-width: 1px; border-bottom-width: 1px; border-right-style: solid; border-bottom-style: solid;"> TRUE</td></tr></tbody></table>
<table style="border-style: groove; border-color: silver; color: rgb(0, 0, 0); font-family: Arial; font-size: 10pt; background-color: rgb(255, 252, 249);"><tbody><tr><td>Τύποι</td></tr><tr><td><table style="font-family: Arial; font-size: 9pt;" border="1" cellpadding="2" cellspacing="0"><tbody><tr style="font-size: 10pt; background-color: rgb(202, 202, 202);"><td>Κελί</td><td>Τύπος</td></tr><tr><td>B2</td><td>=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)))</td></tr></tbody></table></td></tr></tbody></table>



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

<table style="border-style: groove; border-color: silver; color: rgb(0, 0, 0); font-family: Arial; font-size: 10pt; background-color: rgb(255, 252, 249);"><tbody><tr><td>Τύποι</td></tr><tr><td><table style="font-family: Arial; font-size: 9pt;" border="1" cellpadding="2" cellspacing="0"><tbody><tr style="font-size: 10pt; background-color: rgb(202, 202, 202);"><td>Κελί</td><td>Τύπος</td></tr><tr><td>B2</td><td>{=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)}</td></tr></tbody></table></td></tr><tr><td>Τύπος πίνακα:
Δημιουργεί { } όταν κλείσετε
τον τύπο με CTRL+SHIFT+ENTER</td></tr></tbody></table>