CheckEAN Overigefunctie

Met CheckEAN wordt gecontroleerd of de gegeven string voldoet aan de voorwaarden van een EAN (Europees Artikel Nummer). Een EAN bestaat uit minimaal 11 cijfers en is bij 11 cijfers gelijk aan de UPC (Universal Parcel Code) indien het eerste cijfer 0 is. De controle op het EAN en dus de UPC wordt berekend door de even en de oneven cijfers bijkaar op te tellen waarmee op een specifieke manier een checksom wordt berekend die gelijk is aan het laatste cijfer.

De functie resulteert in de waarde TRUE indien het een geldige EAN of UPC betreft en anders in FALSE.

CheckEAN (IBAN)

EAN (MergedString)
In EAN wordt de te controleren EAN of het UPC vermeld.

Voorbeeld:
{
 String sEan0, sEan1, sEan2, sEan3, sOpm
 Integer i
 Copy(sEan0,795711115104)
 Copy(sEan1,795711215104)
 Copy(sEan2,8714936003012)
 Copy(sEan3,8714936004012)
 While i < 4
  If CheckEAN([sEan(i)])
   Copy(sOpm,[sEan(i)] is een geldige EAN of UPC!)
  Else
   Copy(sOpm,[sEan(i)] is géén geldig EAN of UPC!)
  Endif
  i = i + 1
}
[sOpm]
{
 Wend
}

Resultaat:
795711115104 is een geldige EAN of UPC!
795711215104 is géén geldig EAN of UPC!
8714936003012 is een geldige EAN of UPC!
8714936004012 is géén geldig EAN of UPC!