dan
Rumus yang dipakai untuk validdasi kartu debit/kredit (Rumus Array):
=IFERROR(IF(MOD(SUMPRODUCT(IF(((MOD({1;2;3;4;5;6;7;8;9;10;11;12;13;14;15;16};2)=1)*MID(D2;ROW(INDIRECT("1:16"));1))*({2;2;2;2;2;2;2;2;2;2;2;2;2;2;2;2})>9;((MOD({1;2;3;4;5;6;7;8;9;10;11;12;13;14;15;16};2)=1)*MID(D2;ROW(INDIRECT("1:16"));1))*({2;2;2;2;2;2;2;2;2;2;2;2;2;2;2;2})-9;((MOD({1;2;3;4;5;6;7;8;9;10;11;12;13;14;15;16};2)=1)*MID(D2;ROW(INDIRECT("1:16"));1))*({2;2;2;2;2;2;2;2;2;2;2;2;2;2;2;2})))+SUMPRODUCT(((MOD({1;2;3;4;5;6;7;8;9;10;11;12;13;14;15;16};2)=0)*MID(D2;ROW(INDIRECT("1:16"));1)));10)=0;"Kartu Valid";"Kartu Tidak Valid");"Kartu Tidak Valid")
Rumus cek validasi kartu NPWP:
=IF(MOD(SUMPRODUCT((MOD({1;2;3;4;5;6;7;8};2)=1)*MID(A17;ROW(INDIRECT("1:8"));1))*({1;1;1;1;1;1;1;1})+((MOD({1;2;3;4;5;6;7;8};2)=0)*MID(A17;ROW(INDIRECT("1:8"));1))*({2;2;2;2;2;2;2;2});10)=VALUE(MID(A17;9;1));"Kartu NPWP Valid";"Kartu NPWP Tidak Valid")
FILE APLIKASI
