Rubrik: Variablen/Strings · Algorithmen/Mathematik | VB-Versionen: VB.Net | 21.06.07 |
Quersumme berechnen (.NET) Berechnet die Quersumme einer beliebigen Zahl | ||
Autor: schachmat | Bewertung: | Views: 17.362 |
ohne Homepage | System: WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Nachfolgende Funktion sollte wohl selbsterklärend sein. Es wird die Quersumme der übergebenen Zahl berechnet und zurückgegeben.
Die Fehlerbehandlung ist nur integriert, falls jemand etwas wie "123,45" angibt, damit das Komma übersprungen wird.
Komisch, dass es eine solche Funktion nicht schon in der Klassenbibliothek des .NET Frameworks gibt...
Private Function Quersumme(ByVal Zahl As String) Dim Sum As Integer = 0 ' alle Zeichen durchlaufen und Zahl aufsummieren For Each C As Char In Zahl.ToCharArray Try Sum += C.ToString Catch ex As Exception End Try Next ' errechnete Quersumme zurückgeben Return Sum End Function