ISBN转换及其它。

PROCEDURE isbnzh

*十位ISBN转换为13位，要求数据类型为字符型

PARAMETERS isbn

nisbn=ALLTRIM("978"-SUBSTR(isbn,1,9))

sumnum=0

FOR i=1 TO 12

sumnum=sumnum+IIF(MOD(i,2)=1,VAL(SUBSTR(nisbn,i,1))*1,VAL(SUBSTR(nisbn,i,1))*3)

ENDFOR

nisbn=IIF(MOD(sumnum,10)=0,nisbn+"0",ALLTRIM(nisbn-str(10-MOD(sumnum,10),1,0)))

RETURN nisbn

通过isbn找免费的电子书pdf的步骤是：

1、首先进入福昕PDF转换器官网。

2、下载安装完成后，打开软件，选择【知道书的isbn怎么找到pdf】pdf转word格式。

3、点击或者拖拽你想要转换的批量PDF文件或者点击界面下方【添加文件夹】。输出目录可以选择【原文件目录】或者【自定义目录】，点击【开始转换】即可完成转换。

各位一点参考：

新的国际标准书号在国际上简称“ISBN-13”。而前缀码979将作为ISBN-13备用的新系列号码，在978系列号码用尽后开始启用。在使用ISBN-13时，EAN-13条码与ISBN-13数字码需同时排列，且ISBN-13数字码应排在EAN-13物品条码上方，它包括国际标准书号的标识符“ISBN”、数字号码以及数字号码各标识组间的连字符“-”。而与物品条码编码相同的13位数字则应连续排列（无连字符和空格）在物品条码下方，其前也无须添加国际标准书号的标识符“ISBN” 。

ISBN： 7-301-04815-7

EAN-13： 978-7-301-04815-3

前缀978（代表图书），中间一部分与ISBN相同， 最后一位是校验码，校验位的加权算法与10位ISBN的算法不同。具体算法是：用1分别乘ISBN的前9位中的奇数位，用3乘以偶数位，成绩之和以10为模即可得到校验位的值，其值范围应该为0~9。

---