Newest functions Upload a function Leave a tip My account

There are 2,522 functions in this library.

CreditCardName ( CreditCardNumber )

Returns the CC type from the number

  Average rating: 4.4 (28 votes) Log in to vote

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

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

/* 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 Click to copy

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.

 

Comments

		Locke, usa Jan 31, 2009
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...

		Harold Sookman, Montreal Nov 15, 2011
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...

		Rob, Monk Media Nov 15, 2016
Geoff, if you are still maintaining this function, I believe it's outdated according to https://en.wikipedia.org/wiki/Payment_card_number#Issuer_identification_number_.28IIN.29 Looks like a great function but it's unusable without the current credit card numbering schemes.

		Will Loving, Dedication Technologies, Inc. May 5, 2017
I've revised the function to handle 13-19 digit card numbers and to remove brands and ranges that are no longer valid per the information at the Wikipedia link posted above by Rob. The function has been reposted at "CreditCardType" at http://www.briandunning.com/cf/2038

Log in to post comments.

 

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

Support this website.

This library has been a free commmunity resource for FileMaker users and developers for 20 years. It receives no funding and has no advertisements. If it has helped you out, I'd really appreciate it if you could contribute whatever you think it's worth: