|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Validações)
|
|
 |
Título da Dica: Validar Cartão de Crédito
|
 |
|
|
|
Postada em 14/8/2000 por Webmaster
webmaster@vbweb.com.br
Function isCheckCard(ByVal St As String) As Boolean
Dim Soma As Long, Fator As Long
Dim Digito As String, tProduct As Long, Conta As Integer
If Len(St) > 16 Then
isCheckCard = False
Exit Function
End If
Soma = 0: Conta = 0: Fator = 1
For Conta = 0 To Len(St) - 1
Digito = Mid(St, Len(St) - Conta, 1)
tProduct = CLng(Digito) * Fator
If tProduct >= 10 Then
Soma = Soma + (tProduct Mod 10) + 1
Else
Soma = Soma + tProduct
End If
If Fator = 1 Then
Fator = Fator + 1
Else
Fator = Fator - 1
End If
Next
If (Soma Mod 10) = 0 Then
isCheckCard = True
Else
isCheckCard = False
End If
End Function
|
|
|
|
|
