A Function That Can Calculate ISBN Checksums.

Category:
String Manipulation
Type:
Snippets
Difficulty:
Beginning
Author:
Anne-Lise Pasch

Version Compatibility: Visual Basic 6, Visual Basic 5, Visual Basic.NET

More information:
One use is to convert between 10 and 13 digit ISBNs. Simply add 978 to the front of a 10-digit ISBN, pass it to CalculateISBNChecksum, and the reult is the replacement last digit (the checksum).

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:

Code: