Re: ISBN Check Digits
- From: "Bernard Liengme" <bliengme@xxxxxxxxxxxxxxxxx>
- Date: Thu, 11 Aug 2005 15:17:00 -0300
My ISBN is in cell B4. The checkdigit is 11-mod(sumproduct(9 first digits),
but if this computes to 11 then the checkdigit is 0; if it computes to 10
the ISBN ends with X.
It's a long formula but it seems to work:
=IF(AND(RIGHT(B4)="x",
11-MOD(SUMPRODUCT(VALUE(MID(B4,ROW(A1:A9),1)),{10;9;8;7;6;5;4;3;2}),11)=10),"valid",IF(IF(MOD(SUMPRODUCT(VALUE(MID(B4,ROW(A1:A9),1)),{10;9;8;7;6;5;4;3;2}),11)=0,0,11-MOD(SUMPRODUCT(VALUE(MID(B4,ROW(A1:A9),1)),{10;9;8;7;6;5;4;3;2}),11))=VALUE(RIGHT(B4)),"valid","invalid"))
Since (1) we wish to retain leading zeros and (2) an ISBN might end in X, I
treat the ISBN as text. So unless it ends with X, I enter it with leading
apostrophe.
Some values to try it out
075065614x
0750656131
8441515530
best wishes
--
Bernard V Liengme
www.stfx.ca/people/bliengme
remove caps from email
"Colin Vicary" <Colin.Vicary.1tm0ic_1123779908.0847@xxxxxxxxxxxxxxxxxxxxx>
wrote in message
news:Colin.Vicary.1tm0ic_1123779908.0847@xxxxxxxxxxxxxxxxxxxxxxxx
>
> Hi everyone
>
> I've googled without any luck!
>
> I want to use a function to test that the user has entered a "correct"
> ISBN by validating the check digit.
>
> I want to use
> =if(right(a1)<>(11-MOD(SUMPRODUCT(MID(A1,ROW(INDIRECT("1:9")),1)*{10;9;8;7;6;5;4;3;2}),11)),"Invalid","")
> but every possible last digit give the result "invalid".
>
> To complicate matters further in some cases the result of the original
> function could be 11 which is transalted into "X" on a book. How would
> I need to change my formula to cope with that?
>
> Thanks
>
> Colin
>
>
> --
> Colin Vicary
> ------------------------------------------------------------------------
> Colin Vicary's Profile:
> http://www.excelforum.com/member.php?action=getinfo&userid=10472
> View this thread: http://www.excelforum.com/showthread.php?threadid=395037
>
.
- Follow-Ups:
- Re: ISBN Check Digits
- From: Colin Vicary
- Re: ISBN Check Digits
- References:
- ISBN Check Digits
- From: Colin Vicary
- ISBN Check Digits
- Prev by Date: Re: Chart items moving around
- Next by Date: Re: How do I turn the Macro Stop Recording Toolbar on and off?
- Previous by thread: ISBN Check Digits
- Next by thread: Re: ISBN Check Digits
- Index(es):
Relevant Pages
|