Esta função é muito útil para validação de Cartões de Crédito.
A função verifica, através de Expressão Regular, o formato do cartão de crédito, verifica o dígito verificador e retorna um booleano. True para Cartão Válido e False para Inválido.
Esta função suporta os seguintes cartões:
– MASTERCARD
– VISA
– AMEX
– DINERSCLUB.
47) And (Digito < 58) Then 'Somente se for inteiro
Digito = Digito - 48 'Converte novamente para numero (-48)
If blnFlagDigito Then
Digito = Digito + Digito 'Primeiro duplica-o
If Digito > 9 Then 'Verifica se o Digito é maior que 9
Digito = Digito - 9 'Força ser somente um número
End If
End If
blnFlagDigito = Not blnFlagDigito
intVerificaSoma = intVerificaSoma + Digito
If intVerificaSoma > 9 Then
intVerificaSoma = intVerificaSoma - 10 'Mesmo que MOD 10 só que mais rapido
End If
End If
Next
If intVerificaSoma <> 0 Then ' Deve totalizar zero
Retorno = False
Else
Retorno = True
End If
'-----------------------------------------
End If
End If
'Retornando a função
IsCartaoCredito = Retorno
End Function
%>
