|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Validações)
|
|
 |
Título da Dica: RG (Registro Geral) do Est. de São Paulo (não vale p/ RG antigos)
|
 |
|
|
|
Postada em 1/9/2004 por Thiago
nftm@ig.com.br
Public Function RG(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)) * 9
n2 = Val(Mid(VALOR, 2, 1)) * 8
n3 = Val(Mid(VALOR, 3, 1)) * 7
n4 = Val(Mid(VALOR, 4, 1)) * 6
n5 = Val(Mid(VALOR, 5, 1)) * 5
n6 = Val(Mid(VALOR, 6, 1)) * 4
n7 = Val(Mid(VALOR, 7, 1)) * 3
n8 = Val(Mid(VALOR, 8, 1)) * 2
soma = n1 + n2 + n3 + n4 + n5 + n6 + n7 + n8
d = soma Mod 11
If d = Val(Mid(VALOR, 9, 1)) Or d = 0 Then
RG = True
Else
RG = False
End If
End Function
|
|
|
|
|
