RE:como verificar DNI,C. Corriente y N tarj. Credi
Esto es lo que encontré para la tarjeta de crédito:
Si el número tiene un formato válido devuelve 'True'. Si tiene un formato no válido devuelve 'False'. Este algoritmo puede trabajar con todas las tarjetas de crédito. Si una tarjeta es validada con este código, no significa que sea buena actualmente sino sólo que el número tenga un formato válido. Si no es validada por este algoritmo tiene que esperar algún tiempo hasta que procese la tarjeta y diga que definitivamente no es válida.
Se usa esta función en programas CGI,s que necesitan la validación de una tarjeta de crédito.
Function CheckCard(CCNumber As String) As Boolean
Dim Counter As Integer, TmpInt As Integer
Dim Answer As Integer
Counter = 1
TmpInt = 0
While Counter <= Len(CCNumber)
If IsEven(Len(CCNumber)) Then
TmpInt = Val(Mid$(CCNumber, Counter, 1))
If Not IsEven(Counter) Then
TmpInt = TmpInt * 2
If TmpInt > 9 Then TmpInt = TmpInt - 9
End If
Answer = Answer + TmpInt
'Debug.Print Counter, TmpInt, Answer
Counter = Counter + 1
Else
TmpInt = Val(Mid$(CCNumber, Counter, 1))
If IsEven(Counter) Then
TmpInt = TmpInt * 2
If TmpInt > 9 Then TmpInt = TmpInt - 9
End If
Answer = Answer + TmpInt
'Debug.Print Counter, TmpInt, Answer
Counter = Counter + 1
End If
Wend
Answer = Answer Mod 10
If Answer = 0 Then CheckCard = True
End Function
Espero que te sirva, ya te falta menos.
Saludos.
Pedro
Visual Basic
1.-Ejecutar desde una aplica