|
Die Quersumme einer Zahl ist die Summe der Werte der einzelnen
Ziffern dieser Zahl:
Public Function Quersumme(ByVal Zahl As Long) As Long
Dim nQuersumme As Long
Do While Zahl <> 0
nQuersumme = nQuersumme + (Zahl Mod 10)
Zahl = Zahl \ 10
Loop
Quersumme = nQuersumme
End Function
|