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

 

  Dicas

  Visual Basic    (Validações)

Título da Dica:  Validar RENAVAM
Postada em 15/5/2004 por Thiago      Clique aqui para enviar email para o autor  nftm@ig.com.br
Public Function RENAVAM(VALOR As String) As Boolean
    Dim n1, n2, n3, n4, n5, n6, n7, n8, d As Integer
    Dim soma As Integer
    
    n1 = Val(Mid(VALOR, 1, 1)) * 2
    n2 = Val(Mid(VALOR, 2, 1)) * 3
    n3 = Val(Mid(VALOR, 3, 1)) * 4
    n4 = Val(Mid(VALOR, 4, 1)) * 5
    n5 = Val(Mid(VALOR, 5, 1)) * 6
    n6 = Val(Mid(VALOR, 6, 1)) * 7
    n7 = Val(Mid(VALOR, 7, 1)) * 8
    n8 = Val(Mid(VALOR, 8, 1)) * 9
    
    soma = n1 + n2 + n3 + n4 + n5 + n6 + n7 + n8
    d = soma Mod 11
    
    If d = Val(Mid(VALOR, 9, 1)) Or d = 0 Then
       RENAVAM = True
    Else
       RENAVAM = False
    End If
End Function
 


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