Funktion/makro/extension til beregning af EAN-checkciffer?

[kej]

Er der nogen der er stødt på en funktion/makro/extension, der kan beregne checkciffer på et EAN-nummer (også kaldet GTIN-13)?

Har selv googlet lidt rundt og ikke fundet andet end extensions, der kan printe stregkoder

Opskriften findes på http://www.gs1.org/barcodes/support/che ... lator#gtin

I princippet er det jo ikke svært - blot besværligt, så jeg vil gerne sikre mig at det ikke er gjort før

/Karl Erik Jessen

[Lodahl]

Måske er det mulgit at pille detaljerne ud af makroen her: http://www.idautomation.com/openoffice/
Funktionen MSI(DataToEncode;2) ligner det du skal bruge.

[Jens S]

Hej
Jeg havde nogle eksempler på kontrolciffer til cpr-nr og indbetalingskort, så jeg kom frem til følgende formel for EAN-13:
=10-REST(SUMPRODUKT((VÆRDI(MIDT(TEKST(A1;"000000000000");{1|2|3|4|5|6|7|8|9|10|11|12};1))*{1|3|1|3|1|3|1|3|1|3|1|3}));10)
Indtast de 12 første cifre i A1 og funktionen skulle give kontrolciffer, men afprøv den lige, jeg har kun prøvet med få eksempler.

mvh
Jens