by MicroVB INC (5 Submissions)
Category: Miscellaneous
Compatability: Visual Basic 3.0
Difficulty: Advanced
Date Added: Wed 3rd February 2021
Rating: 
(3 Votes)
This code will check a credit card number using the LUHN algorythim (so far i am the only on using this thing right!!).
Inputs
Simple:
Call "ValidateCreditCardNumber" with the credit card number as a string... eg
===============================================
Dim ccReturn As CreditCardStats
ccReturn = ValidateCreditCardNumber("01234567890")
===============================================
Code Returns
The function ValidateCreditCardNumber will return a custom Data Type containing:
1. Credit card checksum
2. Credit card checksum total (according to LUHN)
3. Is Valid Number
4. Credit card company
i) VISA
ii) Mastercard
iii) American Express
iv) Diners Club / Carte Blanche
v) JCB
vi) Discover
vii) enRoute
Download LUHN Credit Card Pre-Authorization (Genuine) (6 KB)
VBcoders