USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic.Net    (Validações)

Título da Dica:  Validador de cartões de crédito em VB.Net
Postada em 9/2/2004 por PC            

Public Function IsValid(ByVal strNumber As String) As Boolean
    Dim lngResult As Integer
    Dim lngTotal As Integer
    Dim intIndex As Short
    Dim i As Short
    Dim x As Short
    x = 1
    For i = Len(strNumber) To 1 Step -1
         lngResult = (CShort(Mid(strNumber, i, 1)) * x)
         If lngResult >= 10 Then
              lngTotal = lngTotal + (CShort(Mid(CStr(lngResult), 1, 1)) + CShort(Mid(CStr(lngResult), 2, 1)))
         Else
              lngTotal = lngTotal + lngResult
         End If
         If x = 2 Then x = 1 Else x = 2
    Next
    If lngTotal Mod 10 = 0 Then
         IsValid = True
    Else
         IsValid = False
    End If
End Function
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página