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

 

  Dicas

  Visual Basic    (Operações Matemáticas)

Título da Dica:  Validar contas do Banco do Brasil (Atualizado)
Postada em 8/5/2007 por ¨PCNATIVO         
'Valida contas do Banco do Brasil
Public Function IsValidCC(sConta As String) As Boolean
    On Error GoTo errHandler:
    Dim x As Long, s As String, iResult As Integer, sTotal As String
    For x = 1 To Len(sConta) - 1
        If IsNumeric(Mid(sConta, x, 1)) Then s = s & Mid(sConta, x, 1)
    Next
    If Len(s) > 11 Then Exit Function
    For x = 0 To Len(Mid(s, 1, 11)) - 1
        Select Case 9 - x
            Case 9, 8, 7, 6, 5, 4, 3, 2, 1, 0
                iResult = iResult + (Mid(Mid(s, 1, 11), _
                Len(Mid(s, 1, 11)) - x, 1) * (9 - x))
            Case Else
                iResult = iResult + (Mid(Mid(s, 1, 11), _
                Len(Mid(s, 1, 11)) - x, 1) * (9))
        End Select
    Next
    sTotal = Int(iResult / 11): sTotal = Int(sTotal * 11): sTotal = Int(iResult - sTotal)
    If sTotal = 10 Then sTotal = "X"
    If Right(sConta, 1) = sTotal Then IsValidCC = True
    Exit Function
errHandler:
    IsValidCC = False
End Function
 


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