|
|
|
|
|
|
|
|
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
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
|
|
|
|
|
