crashx
Erfahrenes Mitglied
Es geht darum den Algorythmus der Prüfzifferberechnung der Schweizer Post irgendwie mit PHP umzusetzen.
Ich habe von der Post einen Codeschnippsel bekommen aber verstehe ihn nicht ganz.
Vielleicht kann mir jemand weiter helfen.
Format der Referenznummer / Prüffziffer
6400 8
Ich habe von der Post einen Codeschnippsel bekommen aber verstehe ihn nicht ganz.
Vielleicht kann mir jemand weiter helfen.
Code:
Function pz10(kto)
On Error GoTo Err_pz10
Dim lg As String
Dim pos As String
Dim k As Integer
Const zr_post As String = "0946827135094682713"
If IsNumeric(kto) Then
I = 0
lg = Len(kto)
For J = 1 To lg
k = Val(Mid(kto, J, 1))
I = Val(Mid(zr_post, I + k + 1, 1))
Next J
pz10 = (10 - I) Mod 10
Else
pz10 = "*"
End If
Exit_pz10:
Exit Function
Err_pz10:
pz10 = "*"
Resume Exit_pz10
End Function
6400 8