|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Validações)
|
|
 |
Título da Dica: Validar RENAVAM
|
 |
|
|
|
Postada em 15/5/2004 por Thiago
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
|
|
|
|
|
