isValid_VIN ( VIN )

Сhecks the VIN ( Vehicle Identifier Number )

Be the first to rate this function Log in to vote

Omelyan Burtnyk - Show more from this author
Go To Logistics
https://gotologistics.net

Sample input:

isValid_VIN ( VIN )

Sample output:

boolean: 1 (valid) or 0 (invalid)

Function definition: (Copy & paste into FileMaker's Edit Custom Function window)

/*
Function Name: isValid_VIN ( VIN )

Сhecks the VIN ( Vehicle Identifier Number ) by the standard algorithm
Correct for North America

Rewritten to simplify code from two functions, 
previously written, into one.

Requirement: Filemaker 18 Pro Advanced or later

Result:	boolean 1(valid) or 0(invalid) 

Created 12/24/19 by Omelyan Burtnyk

Validation rules: https://en.wikipedia.org/wiki/Vehicle_identification_number
*/

While([ 

	~vin = Upper( VIN );
	~last6 = Left( Middle( ~vin; 12; 6 ); 17 ); 
	~isWrongChar = Case( 
		PatternCount( ~vin; "I" ) > 0; "Y"; 
		PatternCount( ~vin; "O" ) > 0; "Y"; 
		PatternCount( ~vin; "Q" ) > 0; "Y"; 
		PatternCount( Middle( ~vin; 10; 1 ); "0" ) > 0; "Y"; 
		PatternCount( Middle( ~vin; 10; 1 ); "U" ) > 0; "Y"; 
		PatternCount( Middle( ~vin; 10; 1 ); "Z" ) > 0; "Y"; 
		Length( Filter( ~last6; "0123456789" )) ≠ 6; "Y";
		"N" 
		);
	~weight = "";
	~value = ""; 
	~sum = 0;
	~char = "";
	~pos = 0;
	i = 0 

	]; i < 17; [ 

	i = i + 1; 
	~char = Middle( ~vin; i; 1 );
	~value = Case( 
		~char = "1"; 1;
		~char = "2"; 2;
		~char = "3"; 3;
		~char = "4"; 4;
		~char = "5"; 5;
		~char = "6"; 6;
		~char = "7"; 7;
		~char = "8"; 8;
		~char = "9"; 9;
		~char = "0"; 0;
		~char = "A"; 1;
		~char = "B"; 2;
		~char = "C"; 3;
		~char = "D"; 4;
		~char = "E"; 5;
		~char = "F"; 6;
		~char = "G"; 7;
		~char = "H"; 8;
		~char = "J"; 1;
		~char = "K"; 2;
		~char = "L"; 3;
		~char = "M"; 4;
		~char = "N"; 5;
		~char = "P"; 7;
		~char = "R"; 9;
		~char = "S"; 2;
		~char = "T"; 3;
		~char = "U"; 4;
		~char = "V"; 5;
		~char = "W"; 6;
		~char = "X"; 7;
		~char = "Y"; 2;
		~char = "Z"; 8;
		);
	~pos = Position( ~vin; ~char; i; 1 );
	~weight = Case(
		~pos = 1; ~value * 8; 
		~pos = 2; ~value * 7; 
		~pos = 3; ~value * 6; 
		~pos = 4; ~value * 5; 
		~pos = 5; ~value * 4; 
		~pos = 6; ~value * 3; 
		~pos = 7; ~value * 2; 
		~pos = 8; ~value * 10; 
		~pos = 9; ~value * 0; 
		~pos= 10; ~value * 9; 
		~pos= 11; ~value * 8; 
		~pos= 12; ~value * 7; 
		~pos= 13; ~value * 6; 
		~pos= 14; ~value * 5; 
		~pos= 15; ~value * 4; 
		~pos= 16; ~value * 3; 
		~pos= 17; ~value * 2; 
		); 
	~sum = ~sum + ~weight

	 ]; 

	Case(
		~isWrongChar = "Y"; 0;  
		Mod( ~sum; 11 ) = Middle( ~vin; 9; 1 ); 1; 
		Mod( ~sum; 11 ) = 10 and Middle( ~vin; 9; 1 ) = "X"; 1; 
		0 
		) 

	)

Overwritten to simplify code from previously written two functions
https://www.briandunning.com/cf/2232 and
https://www.briandunning.com/cf/2233
into one.

Requirement: FileMaker Pro 18 Advanced or later

Validation rules: https://en.wikipedia.org/wiki/Vehicle_identification_number
Correct for North America

Comments

Note: these functions are not guaranteed or supported by BrianDunning.com. Please contact the individual developer with any questions or problems.

isValid_VIN ( VIN )

Comments

Support this website.

Support this website.