Newest functions Upload a function Leave a tip My account

There are 2,522 functions in this library.

ISBN13 ( ISBN )

Converts an old ISBN number to the new ISBN13 format.

  Average rating: 4.1 (34 votes) Log in to vote

Rolf Clausson - Show more from this author Mallverkstan http://www.filemakerbloggen.se

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

Let( [ISBN_temp = Substitute(ISBN;"-";"")]; "978-" & Left(ISBN;Length(ISBN)-1) & GetAsText(Mod(10 - Mod( Middle(ISBN_temp;9;1)*3 + Middle(ISBN_temp;8;1) + Middle(ISBN_temp;7;1)*3 + Middle(ISBN_temp;6;1) + Middle(ISBN_temp;5;1)*3 + Middle(ISBN_temp;4;1) + Middle(ISBN_temp;3;1)*3 + Middle(ISBN_temp;2;1) + Middle(ISBN_temp;1;1)*3 + 8 + 7*3 + 9 ;10);10))) Click to copy

Converts an old ISBN number to the new ISBN13 format.

 

Comments

		David Jun 13, 2015
Useful thank you, but now amazon have changed their rules again, and I can no longer NOT provide an ISBN10, but must provide a 13, along with a 10. Nuisance for books published recently. Can you do a conversion script for ISBN13 to 10 ?

		PRob, NY Apr 5, 2018
Let ( [ $ISBN_noHyphen = Substitute ( ISBN ; "-" ; "" ) ; $ISBN_stripCheck = Left ( $ISBN_noHyphen ; 12 ) ; $ISBN_stripLead = Right ( $ISBN_stripCheck ; 9 ) ; $weightage = ( Middle ( $ISBN_stripLead ; 1 ; 1 ) * 10 ) + ( Middle ( $ISBN_stripLead ; 2 ; 1 ) * 9 ) + ( Middle ( $ISBN_stripLead ; 3 ; 1 ) * 8 ) + ( Middle ( $ISBN_stripLead ; 4 ; 1 ) * 7 ) + ( Middle ( $ISBN_stripLead ; 5 ; 1 ) * 6 ) + ( Middle ( $ISBN_stripLead ; 6 ; 1 ) * 5 ) + ( Middle ( $ISBN_stripLead ; 7 ; 1 ) * 4 ) + ( Middle ( $ISBN_stripLead ; 8 ; 1 ) * 3 ) + ( Middle ( $ISBN_stripLead ; 9 ; 1 ) * 2 ) ; $checkDigit = Mod ( 11 - Mod ( $weightage ; 11 ) ; 11 ) ] ; Middle ( ISBN ; 5 ; 12) & If ( $checkDigit = 10 ; "X" ; $checkDigit ) )

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 20 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: