Quersumme

[RulerofDarkness]

Frage wie kann ich in Vba eine quersumme errechnen lassen?

 

[zioProduct]

Zahl1 + Zahl2 / 2 ?
Oder Zahl1+Zahl2+Zahln / n?

 

[mage]

Ich hab hier mal eine ganz einfache Quersumme, ist über eine Stringumwandlung nicht gerade elegant.

Private Function GetCheckSum(iValue As Long) As Integer
    
    Dim CheckSum As Integer
    Dim sValue As String
    Dim i As Integer
    Dim ValueCount As Integer
    Dim cValue As String
    
    CheckSum = 0
    sValue = CStr(iValue)
    ValueCount = Len(sValue)
    
    If ValueCount > 0 Then
            For i = 1 To ValueCount
                cValue = Mid$(sValue, i, 1)
                If Asc(cValue) >= 48 And Asc(cValue) <= 57 Then
                    CheckSum = CheckSum + CInt(cValue)
                End If
            Next i
    End If
    
    GetCheckSum = CheckSum
    
End Function

 

[hab1cht]

Hi mage und wie kann ich das jetzt ausgeben lassen?

Private Sub Command1_Click()
    GetCheckSum (Text1.Text)
    Text1.Text = GetCheckSum
End Sub

Mit diesem Code geht es leider nicht..

mfg hab1cht

 

[Shakie]

Du solltest dich mal informieren, was Funktionen sind!

Private Sub Command1_Click()
    Text1.Text = GetCheckSum (Text1.Text)
End Sub

 

[hpvw]

In den Weblinks zur Quersumme in Wikipedia gibt es eine VB-Funktion, die mit Mathematik, statt mit Strings arbeitet.

Gruß hpvw

 

[mage]

Ich sagte der Coder nicht gerade elegant.
Dafür einfacher zu verstehen, ausserdem hat ich das Beispiel gerade zur Hand.
Ein gutes Beispiel für dreckigen Code.