I would not attempt to actually use this in a production worksheet

, but:
Enter a 13 ID number in cell A1 (the last character can be any number or letter) and enter the following formula:
=10-VALUE(RIGHT((VALUE(MID(A1,1,1))+VALUE(MID(A1,3,1))+VALUE(MID(A1,5,1))+VALUE(MID(A1,7,1))+VALUE(MID(A1,9,1))+VALUE(MID(A1,11,1)))+(VALUE(MID(REPT("0",6-LEN(VALUE(VALUE(MID(A1,2,1))&VALUE(MID(A1,4,1))&VALUE(MID(A1,6,1))&VALUE(MID(A1,8,1))&VALUE(MID(A1,10,1))&VALUE(MID(A1,12,1)))*2))&VALUE(VALUE(MID(A1,2,1))&VALUE(MID(A1,4,1))&VALUE(MID(A1,6,1))&VALUE(MID(A1,8,1))&VALUE(MID(A1,10,1))&VALUE(MID(A1,12,1)))*2,1,1))+VALUE(MID(REPT("0",6-LEN(VALUE(VALUE(MID(A1,2,1))&VALUE(MID(A1,4,1))&VALUE(MID(A1,6,1))&VALUE(MID(A1,8,1))&VALUE(MID(A1,10,1))&VALUE(MID(A1,12,1)))*2))&VALUE(VALUE(MID(A1,2,1))&VALUE(MID(A1,4,1))&VALUE(MID(A1,6,1))&VALUE(MID(A1,8,1))&VALUE(MID(A1,10,1))&VALUE(MID(A1,12,1)))*2,2,1))+VALUE(MID(REPT("0",6-LEN(VALUE(VALUE(MID(A1,2,1))&VALUE(MID(A1,4,1))&VALUE(MID(A1,6,1))&VALUE(MID(A1,8,1))&VALUE(MID(A1,10,1))&VALUE(MID(A1,12,1)))*2))&VALUE(VALUE(MID(A1,2,1))&VALUE(MID(A1,4,1))&VALUE(MID(A1,6,1))&VALUE(MID(A1,8,1))&VALUE(MID(A1,10,1))&VALUE(MID(A1,12,1)))*2,3,1))+VALUE(MID(REPT("0",6-LEN(VALUE(VALUE(MID(A1,2,1))&VALUE(MID(A1,4,1))&VALUE(MID(A1,6,1))&VALUE(MID(A1,8,1))&VALUE(MID(A1,10,1))&VALUE(MID(A1,12,1)))*2))&VALUE(VALUE(MID(A1,2,1))&VALUE(MID(A1,4,1))&VALUE(MID(A1,6,1))&VALUE(MID(A1,8,1))&VALUE(MID(A1,10,1))&VALUE(MID(A1,12,1)))*2,4,1))+VALUE(MID(REPT("0",6-LEN(VALUE(VALUE(MID(A1,2,1))&VALUE(MID(A1,4,1))&VALUE(MID(A1,6,1))&VALUE(MID(A1,8,1))&VALUE(MID(A1,10,1))&VALUE(MID(A1,12,1)))*2))&VALUE(VALUE(MID(A1,2,1))&VALUE(MID(A1,4,1))&VALUE(MID(A1,6,1))&VALUE(MID(A1,8,1))&VALUE(MID(A1,10,1))&VALUE(MID(A1,12,1)))*2,5,1))+VALUE(MID(REPT("0",6-LEN(VALUE(VALUE(MID(A1,2,1))&VALUE(MID(A1,4,1))&VALUE(MID(A1,6,1))&VALUE(MID(A1,8,1))&VALUE(MID(A1,10,1))&VALUE(MID(A1,12,1)))*2))&VALUE(VALUE(MID(A1,2,1))&VALUE(MID(A1,4,1))&VALUE(MID(A1,6,1))&VALUE(MID(A1,8,1))&VALUE(MID(A1,10,1))&VALUE(MID(A1,12,1)))*2,6,1))),1))
Should spit out the value of the check digit. I'm sure there's a more practical way using bitmasks but that turns into a problem again when you have to explain to somebody else what a bitmask is...