Quersumme berechnen (.NET) Berechnet die Quersumme einer beliebigen Zahl
Autor:   schachmat	Bewertung:     [ Jetzt bewerten ]	Views:  17.346
ohne Homepage	System:  WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 59 Bewertung insgesamt: mangelhaft Durchschnittliche Bewertung: 1.4 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

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