Option Compare Database
 
Private Sub bttBerechnen_Click()
txtErgebnis = fncPZMod10(txtNummer)
End Sub
 
 
Public Function fncPZMod10(pNummer As String) As String
    Dim iZahl As Integer
    Dim iZw As Integer
    Dim iResultat As Integer
    Dim i As Integer
    Dim sTeilzahl As String
    Dim iPruefEnde As Integer
 
    iPruefEnde = (txtPruefEnde - txtPruefStart) + 1
    sTeilzahl = Mid(pNummer, txtPruefStart, iPruefEnde)
 
    For i = Len(sTeilzahl) To 1 Step -1
        iZahl = CInt(Mid(sTeilzahl, i, 1))
        If i Mod 2 <> Len(sTeilzahl) Mod 2 Then
            iResultat = iResultat + iZahl
        Else
            iZw = iZahl * 2
            If iZw >= 10 Then
                iZw = (iZw - 10) + 1
            End If
            iResultat = iResultat + iZw
        End If
    Next i
 
    iResultat = iResultat Mod 10
 
    fncPZMod10 = pNummer & (10 - iResultat)
 
End Function
 
Private Sub bttClear_Click()
txtNummer = ""
txtErgebnis = ""
txtPruefStart = ""
txtPruefEnde = ""
End Sub