VALIDAR RENAVAM E PRONTUARIO DA HABILITAÇÃO


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: VALIDAR RENAVAM E PRONTUARIO DA HABILITAÇÃO

Neves
não registrado

Postada em 24/04/2006 13:42 hs

Pessoal, gostaria de verificar assim que eu for salvar o meu registro tanto se o renavam do veiculo ta correto e do prontuario da habilitação tambem...........

O renavam está sendo digitado em máscara ja o prontuario nao!!
Conto com a ajuda de voces...

Um Abraço

Neves

Armando Gioia

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 24/04/2006 15:27 hs

validar renavan

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

falow um abraço

Neves
não registrado

Postada em 24/04/2006 17:26 hs

Vou testar essa dica do renavam, mas e da carteira de habilitação!?!?

Essa função do renavam serve no maskedit?

abraços

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR