Tipp 8.11 - Prüfsummenermittelung

Wie kann ich eine simple Prüfsummenermittelung gestalten?

Mit dieser Funktion können Sie eine String-Umwandlung zwischen ANSI und ASCII nutzen. Kopieren Sie einfach nachfolgenden Quellcode in die Zwischenablage und fügen Sie anschließend den Inhalt der Zwischenablage in ein neues Modul ein. Die Aufrufparameter finden Sie im Quellcode beschrieben.

Beispiel:

Option Explicit
 
Function Checksum(ByVal sData As String) As Long
'// -----------------------------------------------------
'// Methode:   | Checksumme eines Strings ermitteln
'// -----------------------------------------------------
'// Parameter: | sData - String für Checksummenberechnung
'// -----------------------------------------------------
'// Rückgabe:  | Checksumme des Strings
'// -----------------------------------------------------
'// Autor:     | Stefan Kulpa
'//            | EDV Innovation & Consulting - Dormagen
'// -----------------------------------------------------
    Dim lCount      As Long
    Dim abytData()  As Byte
 
    abytData = sData
    For lCount = LBound(abytData) To UBound(abytData) Step 2
        Checksum = (Checksum + abytData(lCount)) And 255
    Next lCount
 
End Function


Zurück Tipp 8.10 - String-Umwandlung | Inhalt | Tipp 8.12 - Binär nach Dezimal Weiter