Shopping Cart

Free Newsletter
Signup

Contact

FileMaker is a registered trademark of FileMaker, Inc. in the U.S. and other countries.

FileMaker Pro Custom Functions

List | Show Random | Upload | Add This to Your Site

CreditCardName ( CreditCardNumber )

Rate this function:

Average rating: 4.0 (10 votes)
Discuss this Custom Function

Geoff Wells, DataIsland Software LLC
http://www.dataisland.com

Returns the CC type from the number

Sample Input:

123456782

Sample Output:

Invalid Card Number

/* This is a Custom Function implementation of Brian Dunning's Card Validator It requires that the 3 Luhn functions are available in the file. */ Let ( [ justNumbers = Filter( CreditCardNumber ; "0123456789" ) ; // remove any non-numeric characters valid = Luhn ( justNumbers ) ] ; // end let variable definition // begin calculation If ( valid and Length( justNumbers ) >= 15 and Length( justNumbers ) <= 16 ; Case( GetAsNumber(Left(justNumbers;6)) >= 413733 and GetAsNumber(Left(justNumbers;6)) <= 413737; "Visa Debit / Delta"; Left(justNumbers;4) = "4462"; "Visa Debit / Delta"; GetAsNumber(Left(justNumbers;6)) >= 453978 and GetAsNumber(Left(justNumbers;6)) <= 453979; "Visa Debit / Delta"; Left(justNumbers;6) = "454313"; "Visa Debit / Delta"; GetAsNumber(Left(justNumbers;6)) >= 454432 and GetAsNumber(Left(justNumbers;6)) <= 454435; "Visa Debit / Delta"; Left(justNumbers;6) = "454742"; "Visa Debit / Delta"; GetAsNumber(Left(justNumbers;6)) >= 456725 and GetAsNumber(Left(justNumbers;6)) <= 456745; "Visa Debit / Delta"; GetAsNumber(Left(justNumbers;6)) >= 465830 and GetAsNumber(Left(justNumbers;6)) <= 465879; "Visa Debit / Delta"; GetAsNumber(Left(justNumbers;6)) >= 465901 and GetAsNumber(Left(justNumbers;6)) <= 465950; "Visa Debit / Delta"; GetAsNumber(Left(justNumbers;6)) >= 484409 and GetAsNumber(Left(justNumbers;6)) <= 484410; "Visa Debit / Delta"; GetAsNumber(Left(justNumbers;6)) >= 490960 and GetAsNumber(Left(justNumbers;6)) <= 490979; "Visa Debit / Delta"; GetAsNumber(Left(justNumbers;6)) >= 492181 and GetAsNumber(Left(justNumbers;6)) <= 492182; "Visa Debit / Delta"; Left(justNumbers;6) = "498824"; "Visa Debit / Delta"; Left(justNumbers;6) = "450875"; "Visa Electron"; GetAsNumber(Left(justNumbers;6)) >= 484406 and GetAsNumber(Left(justNumbers;6)) <= 484408; "Visa Electron"; GetAsNumber(Left(justNumbers;6)) >= 484411 and GetAsNumber(Left(justNumbers;6)) <= 484455; "Visa Electron"; GetAsNumber(Left(justNumbers;6)) >= 491730 and GetAsNumber(Left(justNumbers;6)) <= 491759; "Visa Electron"; Left(justNumbers;6) = "491880"; "Visa Electron"; GetAsNumber(Left(justNumbers;6)) >= 405501 and GetAsNumber(Left(justNumbers;6)) <= 405504; "Visa Purchasing"; GetAsNumber(Left(justNumbers;6)) >= 405550 and GetAsNumber(Left(justNumbers;6)) <= 405554; "Visa Purchasing"; Left(justNumbers;6) = "415928"; "Visa Purchasing"; GetAsNumber(Left(justNumbers;6)) >= 424604 and GetAsNumber(Left(justNumbers;6)) <= 424605; "Visa Purchasing"; Left(justNumbers;6) = "427533"; "Visa Purchasing"; Left(justNumbers;4) = "4288"; "Visa Purchasing"; Left(justNumbers;6) = "443085"; "Visa Purchasing"; GetAsNumber(Left(justNumbers;4)) >= 4484 and GetAsNumber(Left(justNumbers;4)) <= 4486; "Visa Purchasing"; Left(justNumbers;4) = "4715"; "Visa Purchasing"; Left(justNumbers;4) = "4716"; "Visa Purchasing"; Left(justNumbers;4) = "4804"; "Visa Purchasing"; GetAsNumber(Left(justNumbers;6)) >= 490302 and GetAsNumber(Left(justNumbers;6)) <= 490309; "Switch"; GetAsNumber(Left(justNumbers;6)) >= 490335 and GetAsNumber(Left(justNumbers;6)) <= 490339; "Switch"; GetAsNumber(Left(justNumbers;6)) >= 491101 and GetAsNumber(Left(justNumbers;6)) <= 491102; "Switch"; GetAsNumber(Left(justNumbers;6)) >= 491174 and GetAsNumber(Left(justNumbers;6)) <= 491182; "Switch"; Left(justNumbers;4) = "4936"; "Switch"; Left(justNumbers;6) = "564182"; "Switch"; GetAsNumber(Left(justNumbers;6)) >= 633300 and GetAsNumber(Left(justNumbers;6)) <= 633349; "Switch"; Left(justNumbers;4) = "6759"; "Switch"; GetAsNumber(Left(justNumbers;6)) >= 633450 and GetAsNumber(Left(justNumbers;6)) <= 633499; "Solo"; Left(justNumbers;4) = "6767"; "Solo"; Left(justNumbers;2) ="50"; "Maestro"; GetAsNumber(Left(justNumbers;2)) >= 56 and GetAsNumber(Left(justNumbers;2)) <= 58; "Maestro"; Left(justNumbers;1) ="6"; "Maestro"; GetAsNumber(Left(justNumbers;2)) >= 51 and GetAsNumber(Left(justNumbers;2)) <= 55; "MasterCard"; Left(justNumbers;2) ="34"; "American Express"; Left(justNumbers;2) ="37"; "American Express"; GetAsNumber(Left(justNumbers;3)) >= 300 and GetAsNumber(Left(justNumbers;3)) <= 305; "Diners Club"; Left(justNumbers;2) ="36"; "Diners Club"; Left(justNumbers;2) ="38"; "Diners Club"; Left(justNumbers;1) ="3"; "JCB"; Left(justNumbers;4) ="2131"; "JCB"; Left(justNumbers;4) ="1800"; "JCB"; Left(justNumbers;1) ="4"; "Visa"; Left(justNumbers;4) ="6011"; "Discover"; "?" // unknown card ) // end case ; "Invalid Card Number" ) // end if ) // end let
Then copy & paste into FileMaker Advanced's Edit Custom Function window.

Click here to copy To Clip Manager if you have myFMbutler's Clip Manager installed

Description:

Takes a 15 or 16 digit credit card number, with or without dashes and returns the credit card type (Visa, Mastercard etc. ). Numbers are checked using the Luhn Mod-10 algorithm.

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

This is my Custom Function and I want to edit it

Discuss:

How can i get the 3 luhn function in file...
i need this code but its telling me that the lunh function can not be found...thanks...

Locke, usa
January 31, 2009 9:17am

Been using this for a while but just came up with a VISA number that it claims is not valid. The VISA payment for the number in question was authorized so it must be correct.

Begins with 4313 if that helps...

Harold Sookman, Montreal
November 15, 2011 12:28pm

Make a comment about this Custom Function (please try to keep it brief & to the point). Anyone can post:

Download the Custom Function Dashboard Widget for OS X
Keep all the latest Custom Functions right at your fingertips!

Newest Custom Functions:

1.	list.intersect (listA; listB)
	(Mon, May 14, 12:43pm)
2.	WeekStart ( weekOfYear ; year )
	(Sat, May 12, 8:42am)
3.	PercentToWords (FIELD)
	(Thu, May 10, 3:16pm)
4.	PercentToText (FIELD)
	(Thu, May 10, 2:37pm)
5.	StripReserved( text )
	(Wed, May 02, 6:05pm)
6.	ListBaseTables
	(Wed, May 02, 3:48pm)
7.	ValidEmail( theEmail )
	(Wed, May 02, 7:27am)
8.	UltraDate (Text; LongDate_or_DateDigit)
	(Wed, May 02, 6:07am)


			[ Close Window ]
	The class that teaches you how to successfully sell your FileMaker Pro solution as a professional shrinkwrapped software application.
	Let's Meet in Person Sunday, August 13 2006, Orlando FL Courtyard Orlando International Drive
	Don't miss this most important day of the Developer Conference. Please click here for complete details and online registration.

FileMaker Pro Custom Functions

Description:

Discuss:

Let's Meet in Person