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 RE (Registro Estatístico) da PM de SP
Postada em 27/6/2004 por Thiago      Clique aqui para enviar email para o autor  nftm@ig.com.br
Public Function RE(VALOR As String) As Boolean
    Dim n1, n2, n3, n4, n5, n6, d As Integer
    Dim soma As Integer
    Dim A As Integer
    
    n1 = Val(Mid(VALOR, 1, 1)) * 4
    n2 = Val(Mid(VALOR, 2, 1)) * 5
    n3 = Val(Mid(VALOR, 3, 1)) * 6
    n4 = Val(Mid(VALOR, 4, 1)) * 7
    n5 = Val(Mid(VALOR, 5, 1)) * 8
    n6 = Val(Mid(VALOR, 6, 1)) * 9
    
    soma = n1 + n2 + n3 + n4 + n5 + n6
    d = soma Mod 11
    
    If d = Val(Mid(VALOR, 7, 1)) Or d = 10 Then
       RE = True
    Else
       RE = False
    End If
End Function
 


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