Hier eine kleine FoxPro Funktion zum Berechnen der «Modulo 11» Prüffziffer.
PROCEDURE modulo_11 (s)
LOCAL x,z,t, c,r,y
t=0
c=7
FOR x = LEN(s) TO 1 STEP -1
z = VAL(SUBSTR(s,x,1))
t = t + c*z
c=c-1
IF c<2
c=7
ENDIF
ENDFOR
r = int(t/11)
r = t-(r*11)
IF r<=9
y="0"+ALLTRIM(STR(r))
ELSE
y=ALLTRIM(STR(r))
ENDIF
RETURN y
ENDIF
LOCAL x,z,t, c,r,y
t=0
c=7
FOR x = LEN(s) TO 1 STEP -1
z = VAL(SUBSTR(s,x,1))
t = t + c*z
c=c-1
IF c<2
c=7
ENDIF
ENDFOR
r = int(t/11)
r = t-(r*11)
IF r<=9
y="0"+ALLTRIM(STR(r))
ELSE
y=ALLTRIM(STR(r))
ENDIF
RETURN y
ENDIF
Posted in Code Snippets,FoxPro | Trackback Url
No Responses to “Modulo 11 Prüfziffer in FoxPro”
Trackbacks/Pingbacks
Leave a reply