本履歴

購入した古本の履歴と時々プログラミング

Lotus Notes

UIはLotus Notesで、LEIでRDBMS連携、最終的には携帯から本を検索できるシステム?を作っていますが、。、。
ISBNが正しいか関数。

Function CheckISBN(isbn As String) As Boolean
	Dim Sum,i,res, last  As Integer
	Dim midd As String
	
	CheckISBN = False
	If Len(isbn)=0 Then 
		CheckISBN = True
		Exit Function
	End If
	
	If Len(isbn)<>10 Then Exit Function
	If Not(isbn Like "[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9,X]") Then Exit Function
	
	Sum = 0
	For i=1 To 9
		midd = Mid$(isbn,i,1)
		Sum=Sum+Cint(midd)*i
	Next
	
	res=Sum Mod 11
	If Mid$(isbn,10,1)="X" Then last = 10 Else last =Cint(Mid$(isbn,10,1))
	If  res=last  Then CheckISBN = True 
	
End Function