03/Mar/06 14:06
Re: Vamos a fomentar este Foro
Para fomentar este foro, les deja una macro que sirve para verificar el dígito de un Número de tarjeta de crédito o Débito
[code:1:39c92e241b]Function CheckCreditCardNo(CCNo As String)
If Len(CCNo) < 16 Then
CheckCreditCardNo = "Digitos Extraños"
Exit Function
End If
Dim i As Integer
Dim j As Integer
Dim k As Integer
For i = 1 To Len(CCNo) - 1
k = Val(Mid(CCNo, i, 1))
If (i Mod 2) = 1 Then
k = k * 2
If k > 9 Then
k = k - 10
k = k + 1
End If
End If
j = j + k
Next i
mycheckdigit = (10 - (j Mod 10)) Mod 10
If Val(Right(CCNo, 1)) = mycheckdigit Then
CheckCreditCardNo = True
Else
CheckCreditCardNo = False
End If
End Function
[/code:1:39c92e241b]
«Antes que cambien los reinos, los hombres deberán cambiar»
═╬═
