VBCoding Библиотека кодов Visual Basic .NET Другое Проверить корректность ISBN книги

Visual Basic .NET
Проверить корректность ISBN книги
Function ValidateISBN(ByVal sISBN As String) As Boolean
        Dim chkSum As Integer = 0, i As Integer, chkDigit As Integer
        For i = 0 To sISBN.Length - 2
            chkSum += Integer.Parse(sISBN.Chars(i)) * (i + 1)
        Next
        chkDigit = Integer.Parse(sISBN.Chars(sISBN.Length - 1))
        Return (chkSum Mod 11 = chkDigit)
End Function
 

Добавить комментарий


Защитный код
Обновить

 
VBCoding Библиотека кодов Visual Basic .NET Другое Проверить корректность ISBN книги  
Powered by Exponenta -