[VBA] 신용카드 번호 검증하기

어디서 봤던...신용카드 번호의 규칙(?)... 

어설프게 숫자를 좋아하는 본인에게 이 녀석은 맛있는 간식이 될듯하여...코드를 만들어 보았다.

카드번호가 16자리 숫자가 있고

각 번호를 1부터 15까지 2와 1을 교차하면서 곱한다..

여기서 만약 두자리가 넘어가면 십자리와 일자리를 더한다.

이렇게 구한 값들을 1부터 15까지 더한 후

그값을 10으로 나눈다....

 

여기서 나머지가 0이면 마지막 값과 계산한 값을 일치여부를 보면되고,

나머지가 0이 아니면 계산한 값을 10에서 뺀 후 그 값과 마지막 값의 일치 여부를 확인하면 된다.

 

여기서 사용한 코드는

1. 정규식

2. IIF

3. Evaluate 을 어떻게 사용했는지 살펴보길 바란다...

 

그럼 휘이익

카드번호체크.xlsm

0.02MB