Function overview
Prototype
Kontrollnummer_EAN (
EAN_Enhet )
Parameters
EAN_Enhet First 12 numbers in the EAN-string
Description
Tags:
EAN
The last number in EAN-13 ( European Article Number) is an checksum depending on the preview 12 numbers. This function calculate this number for you.
Examples
Sample input
739371455827
Sample output
5
Function code
If ( Length ( EAN_Enhet ) = 12 ;
(
(
Ceiling (
(
(
(
Middle ( EAN_Enhet ; 2 ;1 ) +
Middle ( EAN_Enhet ; 4 ;1 ) +
Middle ( EAN_Enhet ; 6 ;1 ) +
Middle ( EAN_Enhet ; 8 ;1 ) +
Middle ( EAN_Enhet ; 10 ;1 ) +
Middle ( EAN_Enhet ; 12 ;1 )
) * 3
) +
(
Left ( EAN_Enhet ; 1 ) +
Middle ( EAN_Enhet ; 3 ;1 ) +
Middle ( EAN_Enhet ; 5 ;1 ) +
Middle ( EAN_Enhet ; 7 ;1 ) +
Middle ( EAN_Enhet ; 9 ;1 ) +
Middle ( EAN_Enhet ; 11 ;1 )
)
) / 10
)
) * 10
)
-
(
(
(
Middle ( EAN_Enhet ; 2 ;1 ) +
Middle ( EAN_Enhet ; 4 ;1 ) +
Middle ( EAN_Enhet ; 6 ;1 ) +
Middle ( EAN_Enhet ; 8 ;1 ) +
Middle ( EAN_Enhet ; 10 ;1 ) +
Middle ( EAN_Enhet ; 12 ;1 )
) * 3
) +
(
Left ( EAN_Enhet ; 1 ) +
Middle ( EAN_Enhet ; 3 ;1 ) +
Middle ( EAN_Enhet ; 5 ;1 ) +
Middle ( EAN_Enhet ; 7 ;1 ) +
Middle ( EAN_Enhet ; 9 ;1 ) +
Middle ( EAN_Enhet ; 11 ;1 )
)
)
; "" )
// ===================================
/*
This function is published on FileMaker Custom Functions
to check for updates and provide feedback and bug reports
please visit http://www.fmfunctions.com/fid/319
Prototype: Kontrollnummer_EAN( EAN_Enhet )
Function Author: Ronny (http://www.fmfunctions.com/mid/328)
Last updated: 06 January 2012
Version: 1
*/
// ===================================
If ( Length ( EAN_Enhet ) = 12 ;__LITBR____LITBR__(__LITBR__ (__LITBR__ Ceiling ( __LITBR__ (__LITBR__ (__LITBR__ (__LITBR__ Middle ( EAN_Enhet ; 2 ;1 ) + __LITBR__ Middle ( EAN_Enhet ; 4 ;1 ) + __LITBR__ Middle ( EAN_Enhet ; 6 ;1 ) + __LITBR__ Middle ( EAN_Enhet ; 8 ;1 ) + __LITBR__ Middle ( EAN_Enhet ; 10 ;1 ) + __LITBR__ Middle ( EAN_Enhet ; 12 ;1 )__LITBR__ ) * 3 __LITBR__ ) + __LITBR__ (__LITBR__ Left ( EAN_Enhet ; 1 ) + __LITBR__ Middle ( EAN_Enhet ; 3 ;1 ) + __LITBR__ Middle ( EAN_Enhet ; 5 ;1 ) + __LITBR__ Middle ( EAN_Enhet ; 7 ;1 ) + __LITBR__ Middle ( EAN_Enhet ; 9 ;1 ) + __LITBR__ Middle ( EAN_Enhet ; 11 ;1 )__LITBR__ ) __LITBR__ ) / 10__LITBR__ )__LITBR__ ) * 10__LITBR__) __LITBR__-__LITBR__(__LITBR__ (__LITBR__ (__LITBR__ Middle ( EAN_Enhet ; 2 ;1 ) + __LITBR__ Middle ( EAN_Enhet ; 4 ;1 ) + __LITBR__ Middle ( EAN_Enhet ; 6 ;1 ) + __LITBR__ Middle ( EAN_Enhet ; 8 ;1 ) + __LITBR__ Middle ( EAN_Enhet ; 10 ;1 ) + __LITBR__ Middle ( EAN_Enhet ; 12 ;1 )__LITBR__ ) * 3 __LITBR__ ) + __LITBR__ (__LITBR__ Left ( EAN_Enhet ; 1 ) + __LITBR__ Middle ( EAN_Enhet ; 3 ;1 ) + __LITBR__ Middle ( EAN_Enhet ; 5 ;1 ) + __LITBR__ Middle ( EAN_Enhet ; 7 ;1 ) + __LITBR__ Middle ( EAN_Enhet ; 9 ;1 ) + __LITBR__ Middle ( EAN_Enhet ; 11 ;1 )__LITBR__ ) __LITBR__)__LITBR____LITBR__; "" )__LITBR____LITBR__// ===================================__LITBR__/*__LITBR____LITBR__ This function is published on FileMaker Custom Functions__LITBR__ to check for updates and provide feedback and bug reports__LITBR__ please visit http://www.fmfunctions.com/fid/319__LITBR____LITBR__ Prototype: Kontrollnummer_EAN( EAN_Enhet )__LITBR__ Function Author: Ronny (http://www.fmfunctions.com/mid/328)__LITBR__ Last updated: 06 January 2012__LITBR__ Version: 1__LITBR____LITBR__*/__LITBR__// ===================================
Login or register to comment
Create a new account with fmcustomfunctions.com or login to post a comment.
Comments
13 February 2012
Mod (
-3 * Sum (
Middle ( EAN ; 2 ;1 ) ;
Middle ( EAN ; 4 ;1 ) ;
Middle ( EAN ; 6 ;1 ) ;
Middle ( EAN ; 8 ;1 ) ;
Middle ( EAN ; 10 ;1 ) ;
Middle ( EAN ; 12 ;1 )
) - Sum (
Left ( EAN ; 1 ) ;
Middle ( EAN ; 3 ;1 ) ;
Middle ( EAN ; 5 ;1 ) ;
Middle ( EAN ; 7 ;1 ) ;
Middle ( EAN ; 9 ;1 ) ;
Middle ( EAN ; 11 ;1 )
) ; 10 )