title image


Smiley Re: Quersumme berechnen lassen
Wenn's ein etwas schnellerer Vertreter seiner Art sein darf:







      

Function SumString(ByVal sValue As String) As Long

   Dim i   As Long

   Dim n   As Long

   Dim s() As Byte

   

   If Not IsNumeric(sValue) Then Exit Function

   s() = StrConv(sValue, vbFromUnicode)

   For i = 0 To UBound(s())

      n = n + (s(i) - 48)

   Next

   SumString = n

End Function

 



Code eingefügt mit Syntaxhighlighter 3.0









ganz knapp, aber immerhin zweiter Platz ;)







      



Function SumString(ByVal sValue As String) As Long

   Dim i   As Long

   Dim n   As Long

   

   If Not IsNumeric(sValue) Then Exit Function

   For i = 1 To Len(sValue)

      n = n + Val(Mid(sValue, i, 1))

   Next

   SumString = n

End Function 



Code eingefügt mit Syntaxhighlighter 3.0





Die Val(Mid())-Kombination kostet Zeit.




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: