|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Validações)
|
|
 |
Título da Dica: Validar C.N.H.
|
 |
|
|
|
Postada em 20/4/2007 por Sader
szpere@excelenciasolucoes.com.br
Public Function ValidaCNH(CNH As String) As Boolean
Dim CNHValor As Double
Dim CNHNumero As String
Dim CNHDigito As String
Dim RestoDivisao As Double
Dim ResultadoSubtracao As Double
ValidaCNH = True
CNH = Trim(CNH)
If Trim(CNH) = "" Then
ValidaCNH = False
Else
If Len(Trim(CNH)) <> 9 Then
ValidaCNH = False
Else
CNHNumero = Left(CNH, 8)
CNHDigito = Right(CNH, 1)
CNHValor = CCur(CNHNumero)
RestoDivisao = CNHValor Mod 11
If RestoDivisao = 0 Then
ResultadoSubtracao = 0
ElseIf RestoDivisao = 1 Then
ResultadoSubtracao = 0
Else
ResultadoSubtracao = 11 - RestoDivisao
End If
If Val(CNHDigito) <> ResultadoSubtracao Then
ValidaCNH = False
End If
End If
End If
End Function
|
|
|
|
|
