Newest functions Upload a function Leave a tip My account

There are 2,572 functions in this library.

ISBN ( language ; publisher ; book )

Generate the ISBN# including the check digit

  Average rating: 3.4 (51 votes) Log in to vote

Reinder Wolting ABECON http://www.abecon.nl

  Function definition: (Copy & paste into FileMaker's Edit Custom Function window)

/* http://mathworld.wolfram.com/ISBN.html */ Let ( [ xLanguage = Filter ( language ; "0123456789" ) ; xPublisher = Filter ( publisher ; "0123456789" ) ; xBook = Filter ( book ; "0123456789" ) ; xTotal = xLanguage & xPublisher & xBook ; xCheck = ( 10 * Middle ( xTotal ; 1 ; 1 ) ) + ( 9 * Middle ( xTotal ; 2 ; 1 ) ) + ( 8 * Middle ( xTotal ; 3 ; 1 ) ) + ( 7 * Middle ( xTotal ; 4 ; 1 ) ) + ( 6 * Middle ( xTotal ; 5 ; 1 ) ) + ( 5 * Middle ( xTotal ; 6 ; 1 ) ) + ( 4 * Middle ( xTotal ; 7 ; 1 ) ) + ( 3 * Middle ( xTotal ; 8 ; 1 ) ) + ( 2 * Middle ( xTotal ; 9 ; 1 ) ) ; xDigit = 11 - Mod ( xCheck ; 11 ) ]; "ISBN " & xLanguage & "-" & xPublisher & "-" & xBook & "-" & If ( xDigit = 10 ; "X" ; If ( xDigit = 11 ; 0 ; xDigit ) ) ) Click to copy

ISBN numbers are given to publishers by the International ISBN Agency ( see http://www.isbn-international.org ). But for calculating the number from your own article numbers, this function can come in handy.

 

Comments

Log in to post comments.

 

Note: these functions are not guaranteed or supported by BrianDunning.com. Please contact the individual developer with any questions or problems.

Support this website.

This library has been a free commmunity resource for FileMaker users and developers for 21 years. It receives no funding and has no advertisements. If it has helped you out, I'd really appreciate it if you could contribute whatever you think it's worth: