isValidVIN ( 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:

isValidVIN ( VIN )

Sample output:

1 or valid, 0 or invalid

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

/*
Function Name: isValidVIN ( VIN )

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

Dependency: TransKeyVIN ( value ) 
       https://www.briandunning.com/cf/2232

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

Created 03/18/2019 by Omelyan Burtnyk

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

Let([ 
	~vin = Upper( TextFormatRemove( VIN ));
	~9th = Middle( ~vin; 9; 1 );
	~10th = Middle( ~vin; 10; 1 );
	~last5 = Left( Right( Filter( ~vin; "0123456789" ); 5 ); 17 ); 

	~isWrongChar = Case( 
		PatternCount( ~vin; "I" ) > 0; "Y"; 
		PatternCount( ~vin; "O" ) > 0; "Y"; 
		PatternCount( ~vin; "Q" ) > 0; "Y"; 
		PatternCount( ~10th; "0" ) > 0; "Y"; 
		PatternCount( ~10th; "U" ) > 0; "Y"; 
		PatternCount( ~10th; "Z" ) > 0; "Y"; 
		Length( ~last5 ) ≠ 5; "Y";
		"N" 
		);

	~mod = Mod( 
		TransKeyVIN( Middle( ~vin; 1; 1 )) * 8 +
		TransKeyVIN( Middle( ~vin; 2; 1 )) * 7 +
		TransKeyVIN( Middle( ~vin; 3; 1 )) * 6 +
		TransKeyVIN( Middle( ~vin; 4; 1 )) * 5 +
		TransKeyVIN( Middle( ~vin; 5; 1 )) * 4 +
		TransKeyVIN( Middle( ~vin; 6; 1 )) * 3 +
		TransKeyVIN( Middle( ~vin; 7; 1 )) * 2 +
		TransKeyVIN( Middle( ~vin; 8; 1 )) * 10 +
		TransKeyVIN( Middle( ~vin; 10; 1 )) * 9 +
		TransKeyVIN( Middle( ~vin; 11; 1 )) * 8 +
		TransKeyVIN( Middle( ~vin; 12; 1 )) * 7 +
		TransKeyVIN( Middle( ~vin; 13; 1 )) * 6 +
		TransKeyVIN( Middle( ~vin; 14; 1 )) * 5 +
		TransKeyVIN( Middle( ~vin; 15; 1 )) * 4 +
		TransKeyVIN( Middle( ~vin; 16; 1 )) * 3 +
		TransKeyVIN( Middle( ~vin; 17; 1 )) * 2 
		; 11)

	];

	Case( 
		Length( ~vin ) < 17; 0;
		~isWrongChar = "Y"; 0; 
		~mod = ~9th; 1; 
		~mod = 10 and ~9th = "X"; 1; 
		0 
		)
	)

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

Comments

		Lazarus Sismanis, Decision Group May 16, 2019
One minor correction on line 18: ~vin = Upper( Table::VIN_field ); should be ~vin = Upper( VIN ); Thank you for this custom function.

		Omelyan Burtnyk, Go To Logistics May 16, 2019
Thank you Lazarus Sismanis I've corrected

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

isValidVIN ( VIN )

Comments

Support this website.

Support this website.