Modulo 11 Prüfziffer in FoxPro

Posted on: December 23rd, 2009

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

Posted in Code Snippets,FoxPro | Trackback Url

Latest Blog Entries

Archive

News

Apple lays App Store rules bare
Apple says that it will publish the guidelines it uses to determine which programs it sells in its App Store to appease critical developers.
Google unveils 'instant' searches
Google speeds up its internet search engine by launching a new product called Instant that displays results as soon as users type in queries.
Smartphone chip battle heats up
Intel is to launch its first chip with built-in graphics, while established phone chipmaker ARM releases a fast new chip.

Martin Fischer said:

Client and partner of simra.ch

Wir können Simon Schärer als kompetenter und zuverlässiger Programmierer höchst weiterempfehlen. Er ist nicht nur ein guter Programmierer, sondern auch ein ausgezeichneter Designer.
Danke Developer’s Island