Concloo LotusScript Essentials Beispiele
Beispiele: CNCL_WhatCC
Prüft die übergebene Kreditkartennummer und liefert den Namen des Kreditkartenunternehmens als Text zurück. Zusätzlich kann auch noch die Gültigkeit der Nummer überprüft werden. Sollte die Kreditkarte nicht erkannt werden wir "No Creditcard" zurückgegeben.
Folgende Kreditkarten können erkannt werden:
- American Express
- China UnionPay
- Diners Club Carte Blanche
- Diners Club International
- Diners Club United States & Canada
- Discover Card
- InstaPayment
- JCB
- Laser
- Maestro
- Mastercard
- VISA Card
- Visa Electron
Dim cc1 As String
Dim cc2 As String
cc1 = "4213 3712 8487 7024"
cc2 = "3456 1246 5648 658"
Print CNCL_WhatCC(cc1, True)
Print CNCL_WhatCC(cc2, True)
Ausgabe:
Visa
American Express (invald CCN)