Does anyone know how to do a MOD-10 credit card number check in Excel 2000?
Is there a way to do it using a macro and Visual Basic?

Here is a simple function


Function ccCheck(rng) As Boolean
Dim i As Long
Dim tmp

With rng
For i = 1 To Len(.Value) - 1
tmp = tmp + Val(Mid(.Value, i, 1))
Next i
ccCheck = tmp Mod 10 = Val(Right(.Value, 1))
End With

End Function

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Stephanie" wrote in message
...
Does anyone know how to do a MOD-10 credit card number check in Excel
2000?
Is there a way to do it using a macro and Visual Basic?

Hello. I might be wrong, but it looks like a credit card check multiplies
each digit by an alternating series of 1's or 2's. You then Sum the
individual digits. If the Total divides by 10, the number is valid. If
this is correct, here is one idea. If you wanted, you can check for leading
characters that are valid for MasterCard, Visa, etc. I used a string
variable since entering a 16 digit number would have to be done as a string.
My credit card showed "Valid" as a check.
I'm not an expert here, so hopefully some ideas here will help.

Function CC_Check(n As String) As Boolean
'// Dana DeLouis
Dim P As Long 'Pointer
Dim Tot As Long
Dim digit As Long
Dim s As Long

Select Case Len(n)
Case 13 To 16
'Valid Length
'// Make Even Length
If Len(n) Mod 2 = 1 Then n = "0" & n

For P = Len(n) To 1 Step -1
'// = = = = = = = = =
'Option #1
'// = = = = = = = = =
' Get Character
s = Mid$(n, P, 1)
' Multiply by 1 or 2
digit = s * (1 + (P Mod 2))
' Sum the individual digits (ie 12 = 1+2=3)
Tot = Tot + ((digit - 1) Mod 9) + 1

'Option #2 - Combines the 3 lines above...
'// = = = = = = = = =
' Tot = Tot + ((Mid$(n, P, 1) * (1 + (P Mod 2)) - 1) Mod 9) + 1
'// = = = = = = = = =

Next P
CC_Check = (Tot Mod 10) = 0

Case Else
'Invalid
CC_Check = "Invalid Length"
End Select

End Function


--
Dana DeLouis
Win XP & Office 2003


"Bob Phillips" wrote in message
...
Here is a simple function


Function ccCheck(rng) As Boolean
Dim i As Long
Dim tmp

With rng
For i = 1 To Len(.Value) - 1
tmp = tmp + Val(Mid(.Value, i, 1))
Next i
ccCheck = tmp Mod 10 = Val(Right(.Value, 1))
End With

End Function

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Stephanie" wrote in message
...
Does anyone know how to do a MOD-10 credit card number check in Excel
2000?
Is there a way to do it using a macro and Visual Basic?

Hi Dana,

I am no expert either, and if I recall now (now that you have prompted me
;-)), the only mod checking I ever did multiplied each digit by a weighting
(I don't recall it being as straight-forward as 1 or 2, but my memory may be
failing).

I hope the OP knows the algorithm at the very least, my intent was to show
him how to do a mod check. I think (hope) that with that, and your helpful
advice, he should be on the road.

Regards

Bob


"Dana DeLouis" wrote in message
...
Hello. I might be wrong, but it looks like a credit card check multiplies
each digit by an alternating series of 1's or 2's. You then Sum the
individual digits. If the Total divides by 10, the number is valid. If
this is correct, here is one idea. If you wanted, you can check for
leading
characters that are valid for MasterCard, Visa, etc. I used a string
variable since entering a 16 digit number would have to be done as a
string.
My credit card showed "Valid" as a check.
I'm not an expert here, so hopefully some ideas here will help.

Function CC_Check(n As String) As Boolean
'// Dana DeLouis
Dim P As Long 'Pointer
Dim Tot As Long
Dim digit As Long
Dim s As Long

Select Case Len(n)
Case 13 To 16
'Valid Length
'// Make Even Length
If Len(n) Mod 2 = 1 Then n = "0" & n

For P = Len(n) To 1 Step -1
'// = = = = = = = = =
'Option #1
'// = = = = = = = = =
' Get Character
s = Mid$(n, P, 1)
' Multiply by 1 or 2
digit = s * (1 + (P Mod 2))
' Sum the individual digits (ie 12 = 1+2=3)
Tot = Tot + ((digit - 1) Mod 9) + 1

'Option #2 - Combines the 3 lines above...
'// = = = = = = = = =
' Tot = Tot + ((Mid$(n, P, 1) * (1 + (P Mod 2)) - 1) Mod 9) + 1
'// = = = = = = = = =

Next P
CC_Check = (Tot Mod 10) = 0

Case Else
'Invalid
CC_Check = "Invalid Length"
End Select

End Function


--
Dana DeLouis
Win XP & Office 2003


"Bob Phillips" wrote in message
...
Here is a simple function


Function ccCheck(rng) As Boolean
Dim i As Long
Dim tmp

With rng
For i = 1 To Len(.Value) - 1
tmp = tmp + Val(Mid(.Value, i, 1))
Next i
ccCheck = tmp Mod 10 = Val(Right(.Value, 1))
End With

End Function

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Stephanie" wrote in message
...
Does anyone know how to do a MOD-10 credit card number check in Excel
2000?
Is there a way to do it using a macro and Visual Basic?