Benötigen Sie eine Funktion, die die Gültigkeit einer eingegebenen ISBN-Nummer prüft? Dann ist nachfolgende Funktion genau richtig für Sie ''' <summary> ''' Prüft eine ISBN-Nummer auf ihre Gültigkeit. ''' </summary> ''' <param name="sISBN">ISBN-Nummer</param> ''' <returns>True, wenn gültig. Andernfalls False.</returns> Public Function CheckISBN(ByVal sISBN As String) As Boolean ' Bindestriche und Leerzeichen entfernen sISBN = sISBN.Replace("-", "").Replace(" ", "") If sISBN.Length > 1 Then ' Prüfziffer: letzte Stelle Dim Pruefziffer As Integer If sISBN.Substring(sISBN.Length - 1, 1).ToUpper = "X" Then ' Sonderfall: X = 10 Pruefziffer = 10 Else Pruefziffer = Val(sISBN.Chars(sISBN.Length - 1)) End If ' Summe bilden (bis auf letze Stelle) Dim Summe As Integer = 0 For i As Integer = 0 To sISBN.Length - 2 Summe += Val(sISBN.Chars(i)) * (i + 1) Next ' Errechnte Summe MOD 11 muss gleich der Prüfziffer sein If Summe Mod 11 = Pruefziffer Then Return True End If Return False End Function Hinweis zur Gültigkeitsprüfung:
Dieser Tipp wurde bereits 10.602 mal aufgerufen. Voriger Tipp | Zufälliger Tipp | Nächster Tipp
Anzeige
Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv Vol.6 (einschl. Beispielprojekt!) Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! - nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten - Symbol-Galerie mit mehr als 3.200 Icons im modernen Look Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m. |
Neu! sevEingabe 3.0 Einfach stark! Ein einziges Eingabe-Control für alle benötigten Eingabetypen und -formate, inkl. Kalender-, Taschenrechner und Floskelfunktion, mehrspaltige ComboBox mit DB-Anbindung, ImageComboBox u.v.m. Tipp des Monats April 2024 Skyfloy Chart von Microsoft und dazu noch gratis Tutorial für Microsoft Chart Controls für Microsoft .NET Framework 3.5 TOP Entwickler-Paket TOP-Preis!! Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR... |
||||||||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |