Ir para o conteúdo
smztodo_poderoso

[Resolvido] Validar o NIF

Mensagens Recomendadas

smztodo_poderoso

Este é a função que tenho

Public Function IsValidContrib(ByVal contrib As String) As Boolean

Dim s As Long

Dim i As Integer

Dim checkDigit As Integer

Dim dblDivisao As Integer

IsValidContrib = False

checkDigit = 0

dblDivisao = 0

If Len(contrib) = 9 And IsNumeric(contrib) = True Then

If (Mid(contrib, 1, (1)) = 1 Or Mid(contrib, 1, (1)) = 2 Or Mid(contrib, 1, (1)) = 5 Or Mid(contrib, 1, (1)) = 6 Or Mid(contrib, 1, (1)) = 8 Or Mid(contrib, 1, (1)) = 9) Then

For i = 1 To 8

checkDigit = checkDigit + (Mid(contrib, i, (1)) * (10 - i))

Next

checkDigit = 11 - (checkDigit Mod 11)

If checkDigit >= 10 Then

checkDigit = 0

End If

If (checkDigit = Mid(contrib, 9, (1))) Then

IsValidContrib = True

End If

Else

Exit Function

End If

End If

End Function

A minha duvida é como vou chamar esta função. Ou seja através de uma text box e de um command validar?

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
tiago.f

Algo do género:

sub clica

dim valido as boolean

valido = IsValidContrib (textbox.value)

end sub

depois associas a macro "clica" ao botão

Editado por tiago.f

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
smztodo_poderoso

Algo do género:

depois associas a macro "clica" ao botão

usei o seguinte codigo

Private Sub cmdNIF_Click()

Dim valido As Boolean

valido = IsValidContrib(txtcontribuinte.Value)

txtresultado.Text = valido

End Sub

Dá erro 424 Object requerid

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.