Проверка номера пластиковой карты по формуле LUHN

Проверка номера пластиковой карты по формуле LUHN
Вызов функции:
IsCard ( anCardNumber:string , asCardType:string )
anCardNumber - номер карты
asCardType - вид карты
"v" - Visa Cards
"a" - American Express Cards
"m" - MasterCards
"d" - Discover Cards
Если не указан вид - по умолчанию Visa
Функция возвращает:
true - правильный номер карточки, иначе false

Пример:
[###########] (IsCard("4000001234567899","v"));