Code-Beispiel

Quersumme berechnen

Lizenz:	Erster Autor:	Letzte Bearbeitung:
k. A.	Mao	21.06.2007

Die Quersumme einer Zahl berechnet man, indem man alle Ziffern zusammen zählt.

Declare Function Quersumme(Zahl As Integer) As Integer



Function Quersumme(Zahl As Integer) As Integer

  Dim As String Temp

  Dim As Integer Ergebnis, i



  Temp=Str(Zahl)

  If Len(Temp)>0 Then

    For i=1 To Len(Temp)

      Ergebnis+=Val(Mid(Temp, i, 1))

    Next i

  Else

    Ergebnis=0

  End If



  Quersumme=Ergebnis

End Function

Aufruf zum Beispiel mit "Quersumme(1337)".

Die ytwinky-Version hiervon ist diesmal keine rekursive, sondern bedient sich einiger Tricks und ist daher für Anfänger mehr weniger geeignet :D

Declare Function Quersumme(Zahl As Long) As Long

Dim Zahl As Long=313373

Function Quersumme(byVal Zahl As Long) As Long

  Dim Temp As String=Str(Zahl), Ergebnis As Long

  For Zahl=0 To Len(Temp)-1

    Ergebnis+=Val(Chr(Temp[Zahl]))

  Next

  Function=Ergebnis

End Function

?"Quersumme von " &Zahl &"=" &QuerSumme(Zahl);

Sleep

Zusätzliche Informationen und Funktionen

Das Code-Beispiel wurde am 11.06.2007 von Mao angelegt.
Die aktuellste Version wurde am 21.06.2007 von Mao gespeichert.

Bearbeiten

Versionen

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX 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.