Skip to main content
Revisão editorial
Fonte Link
brasofilo
  • 6,7mil
  • 5
  • 30
  • 50

Boa tarde a todos ! Tenho um um problema aqui no meu pais moçambiqueEm Moçambique existe um numero único de identificação tributaria(nuit), o numero de identificação tributária (nuit), e esse número leva 9 digitos. 
Como ficaria um aplicativo para validar o nuit atendendo as seguintes condições  ? Se forem mais(+) ou menos(-) que nove(9) digitos ,diga” nuit invalido.” Deve aceitar apenas números ,se não forem números diga”por favor digite apenas números” Tenho aqui o algoritmo:

Private Sub CommandButton1_Click()

v = validarnuit(TextBox1.Text) MsgBox v

  • Se forem mais(+) ou menos(-) que nove(9) digitos, diga ”nuit invalido.”

  • Deve aceitar apenas números, se não forem números diga ”por favor digite apenas números”

End Sub Function validarnuit(nuit) Dim cd As Double Dim valido As String valido = "Nuit Invalido" If Len(nuit) = 9 Then If IsNumeric(nuit) Then If nuit <> 0 ThenTenho aqui o algoritmo:

cd = Mid(nuit, 8, 1) * 2 cd = cd + Mid(nuit, 7, 1) * 3 + _ cd = cd + Mid(nuit, 6, 1) * 4 + _ cd = cd + Mid(nuit, 5, 1) * 5 + _ cd = cd + Mid(nuit, 4, 1) * 6 + _ cd = cd + Mid(nuit, 3, 1) * 7 + _ cd = cd + Mid(nuit, 2, 1) * 2 + _ cd = cd + Mid(nuit, 1, 1) * 3 + _ cd = 11 - (cd Mod 11) If cd = 9 Then valido = "good" End If End If End If End If validarnuit = valido End Function

Private Sub CommandButton1_Click()

v = validarnuit(TextBox1.Text)
MsgBox v

End Sub
Function validarnuit(nuit)
Dim cd As Double
Dim valido As String
valido = "Nuit Invalido"
If Len(nuit) = 9 Then
If IsNumeric(nuit) Then
If nuit <> 0 Then

cd = Mid(nuit, 8, 1) * 2
cd = cd + Mid(nuit, 7, 1) * 3 + _
cd = cd + Mid(nuit, 6, 1) * 4 + _
cd = cd + Mid(nuit, 5, 1) * 5 + _
cd = cd + Mid(nuit, 4, 1) * 6 + _
cd = cd + Mid(nuit, 3, 1) * 7 + _
cd = cd + Mid(nuit, 2, 1) * 2 + _
cd = cd + Mid(nuit, 1, 1) * 3 + _
cd = 11 - (cd Mod 11)
If cd = 9 Then
valido = "good"
End If
End If
End If
End If
validarnuit = valido
End Function

‘seSe o cdcd fore igual a 11,é é falso e não valida ,sevalida; se for igual a 10 tambem nao valida, so também não valida; só valida se cdcd for igual a 9.,image Image se a divisão for igual a 2.isto, isto seria 11-2 = cd 9 e valida. tenteiTentei usar este codigo em cima mas não da 9. Alguem tem uma ideia eficaz de como fazer isto? excel vba.aguardo a colaboração de todos.

Boa tarde a todos ! Tenho um um problema aqui no meu pais moçambique existe um numero único de identificação tributaria(nuit), o numero de identificação (nuit) leva 9 digitos. Como ficaria um aplicativo para validar o nuit atendendo as seguintes condições  ? Se forem mais(+) ou menos(-) que nove(9) digitos ,diga” nuit invalido.” Deve aceitar apenas números ,se não forem números diga”por favor digite apenas números” Tenho aqui o algoritmo:

Private Sub CommandButton1_Click()

v = validarnuit(TextBox1.Text) MsgBox v

End Sub Function validarnuit(nuit) Dim cd As Double Dim valido As String valido = "Nuit Invalido" If Len(nuit) = 9 Then If IsNumeric(nuit) Then If nuit <> 0 Then

cd = Mid(nuit, 8, 1) * 2 cd = cd + Mid(nuit, 7, 1) * 3 + _ cd = cd + Mid(nuit, 6, 1) * 4 + _ cd = cd + Mid(nuit, 5, 1) * 5 + _ cd = cd + Mid(nuit, 4, 1) * 6 + _ cd = cd + Mid(nuit, 3, 1) * 7 + _ cd = cd + Mid(nuit, 2, 1) * 2 + _ cd = cd + Mid(nuit, 1, 1) * 3 + _ cd = 11 - (cd Mod 11) If cd = 9 Then valido = "good" End If End If End If End If validarnuit = valido End Function

‘se o cd fore igual a 11,é falso e não valida ,se for igual a 10 tambem nao valida, so valida se cd for igual a 9.,image se a divisão for igual a 2.isto seria 11-2 = cd 9 e valida. tentei usar este codigo em cima mas não da 9. Alguem tem uma ideia eficaz de como fazer isto? excel vba.aguardo a colaboração de todos.

Em Moçambique existe um numero único de identificação tributária (nuit), e esse número leva 9 digitos. 
Como ficaria um aplicativo para validar o nuit atendendo as seguintes condições?

  • Se forem mais(+) ou menos(-) que nove(9) digitos, diga ”nuit invalido.”

  • Deve aceitar apenas números, se não forem números diga ”por favor digite apenas números”

Tenho aqui o algoritmo:

Private Sub CommandButton1_Click()

v = validarnuit(TextBox1.Text)
MsgBox v

End Sub
Function validarnuit(nuit)
Dim cd As Double
Dim valido As String
valido = "Nuit Invalido"
If Len(nuit) = 9 Then
If IsNumeric(nuit) Then
If nuit <> 0 Then

cd = Mid(nuit, 8, 1) * 2
cd = cd + Mid(nuit, 7, 1) * 3 + _
cd = cd + Mid(nuit, 6, 1) * 4 + _
cd = cd + Mid(nuit, 5, 1) * 5 + _
cd = cd + Mid(nuit, 4, 1) * 6 + _
cd = cd + Mid(nuit, 3, 1) * 7 + _
cd = cd + Mid(nuit, 2, 1) * 2 + _
cd = cd + Mid(nuit, 1, 1) * 3 + _
cd = 11 - (cd Mod 11)
If cd = 9 Then
valido = "good"
End If
End If
End If
End If
validarnuit = valido
End Function

Se o cd fore igual a 11, é falso e não valida; se for igual a 10 também não valida; só valida se cd for igual a 9. Image se a divisão for igual a 2, isto seria 11-2 = cd 9 e valida. Tentei usar este codigo em cima mas não 9. Alguem tem uma ideia eficaz de como fazer isto?

removeu 290 caracteres do conteúdo
Fonte Link
user7752
  • 35
  • 1
  • 9

Boa tarde a todos ! Tenho um um problema aqui no meu pais moçambique existe um numero único de identificação tributaria(nuit), o numero de identificação (nuit) leva 9 digitos. Como ficaria um aplicativo para validar o nuit atendendo as seguintes condições ? Se forem mais(+) ou menos(-) que nove(9) digitos ,diga” nuit invalido.” Deve aceitar apenas números ,se não forem números diga”por favor digite apenas números” Tenho aqui o algoritmo:

Public Function valida_nuit_Check_digitPrivate Sub CommandButton1_Click(ByVal nuit As String) As Boolean

v = validarnuit(TextBox1.Text) MsgBox v

End Sub Function validarnuit(nuit) Dim cd As Double nuitDim valido As String valido = Right"Nuit Invalido" If Len("0000000000000" & nuit, 9nuit) = 9 Then If Not IsNumeric(nuit) Then valida_nuit_Check_digit = False Else If nuit =<> 0 Then valida_nuit_Check_digit = False Else cd

cd = CLng(MidMid(nuit, 8, 1)) * 2 + _ CLng(Midcd = cd + Mid(nuit, 7, 1)) * 3 + _ CLng(Midcd = cd + Mid(nuit, 6, 1)) * 4 + _ CLng(Midcd = cd + Mid(nuit, 5, 1)) * 5 + _ CLng(Midcd = cd + Mid(nuit, 4, 1)) * 6 + _ CLng(Midcd = cd + Mid(nuit, 3, 1)) * 7 + _ CLng(Midcd = cd + Mid(nuit, 2, 1)) * 2 + _ CLng(Midcd = cd + Mid(nuit, 1, 1)) * 3 + _ cd = 11 - (cd Mod 11) cd = IIf(cd = 11, 0, IIf(cd = 10, 1,If cd)) = 9 Then valida_nuit_Check_digitvalido = IIf(cd"good" End If End If End If End If validarnuit = CLng(Mid(nuit, 9, 1)), True, False)valido End Function

‘se o cd fore igual a 11,é falso e não valida ,se for igual a 10 tambem nao valida, so valida se cd for igual a 9.,image se a divisão for igual a 2.isto seria 11-2 = cd 9 e valida. End If tentei usar este codigo em cima mas não da 9. End IfAlguem tem uma ideia eficaz de como fazer isto? excel vba.aguardo a colaboração de todos.

End Function
      Alguem tem uma ideia eficaz de como fazer isto? MSAcces vba.aguardo a colaboração de todos.

Boa tarde a todos ! Tenho um um problema aqui no meu pais moçambique existe um numero único de identificação tributaria(nuit), o numero de identificação (nuit) leva 9 digitos. Como ficaria um aplicativo para validar o nuit atendendo as seguintes condições ? Se forem mais(+) ou menos(-) que nove(9) digitos ,diga” nuit invalido.” Deve aceitar apenas números ,se não forem números diga”por favor digite apenas números” Tenho aqui o algoritmo:

Public Function valida_nuit_Check_digit(ByVal nuit As String) As Boolean Dim cd As Double nuit = Right("0000000000000" & nuit, 9) If Not IsNumeric(nuit) Then valida_nuit_Check_digit = False Else If nuit = 0 Then valida_nuit_Check_digit = False Else cd = CLng(Mid(nuit, 8, 1)) * 2 + _ CLng(Mid(nuit, 7, 1)) * 3 + _ CLng(Mid(nuit, 6, 1)) * 4 + _ CLng(Mid(nuit, 5, 1)) * 5 + _ CLng(Mid(nuit, 4, 1)) * 6 + _ CLng(Mid(nuit, 3, 1)) * 7 + _ CLng(Mid(nuit, 2, 1)) * 2 + _ CLng(Mid(nuit, 1, 1)) * 3 cd = 11 - (cd Mod 11) cd = IIf(cd = 11, 0, IIf(cd = 10, 1, cd)) valida_nuit_Check_digit = IIf(cd = CLng(Mid(nuit, 9, 1)), True, False) ‘se o cd fore igual a 11,é falso e não valida ,se for igual a 10 tambem nao valida, so valida se cd for igual a 9.,image se a divisão for igual a 2.isto seria 11-2 = cd 9 e valida. End If End If

End Function
      Alguem tem uma ideia eficaz de como fazer isto? MSAcces vba.aguardo a colaboração de todos.

Boa tarde a todos ! Tenho um um problema aqui no meu pais moçambique existe um numero único de identificação tributaria(nuit), o numero de identificação (nuit) leva 9 digitos. Como ficaria um aplicativo para validar o nuit atendendo as seguintes condições ? Se forem mais(+) ou menos(-) que nove(9) digitos ,diga” nuit invalido.” Deve aceitar apenas números ,se não forem números diga”por favor digite apenas números” Tenho aqui o algoritmo:

Private Sub CommandButton1_Click()

v = validarnuit(TextBox1.Text) MsgBox v

End Sub Function validarnuit(nuit) Dim cd As Double Dim valido As String valido = "Nuit Invalido" If Len(nuit) = 9 Then If IsNumeric(nuit) Then If nuit <> 0 Then

cd = Mid(nuit, 8, 1) * 2 cd = cd + Mid(nuit, 7, 1) * 3 + _ cd = cd + Mid(nuit, 6, 1) * 4 + _ cd = cd + Mid(nuit, 5, 1) * 5 + _ cd = cd + Mid(nuit, 4, 1) * 6 + _ cd = cd + Mid(nuit, 3, 1) * 7 + _ cd = cd + Mid(nuit, 2, 1) * 2 + _ cd = cd + Mid(nuit, 1, 1) * 3 + _ cd = 11 - (cd Mod 11) If cd = 9 Then valido = "good" End If End If End If End If validarnuit = valido End Function

‘se o cd fore igual a 11,é falso e não valida ,se for igual a 10 tambem nao valida, so valida se cd for igual a 9.,image se a divisão for igual a 2.isto seria 11-2 = cd 9 e valida. tentei usar este codigo em cima mas não da 9. Alguem tem uma ideia eficaz de como fazer isto? excel vba.aguardo a colaboração de todos.

removeu 5 caracteres do conteúdo
Fonte Link
user7752
  • 35
  • 1
  • 9

ComoBoa tarde a todos ! Tenho um um problema aqui no meu pais moçambique existe um numero único de identificação tributaria(nuit), o numero de identificação (nuit) leva 9 digitos. Como ficaria um aplicativo para validar um código nuit¹o nuit atendendo as seguintes condições  ?

Se forem mais ou menos que nove(9) dígitos, retorne "nuit invalido"

Deve Se forem mais(+) ou menos(-) que nove(9) digitos ,diga” nuit invalido.” Deve aceitar apenas números  , sese não forem números retorne "pordiga”por favor

digite apenas números"

Tenho digite apenas números” Tenho aqui o seguinte algoritmo:

Public Function valida_nuit_Check_digit(ByVal nuit As String) As Boolean Dim cd As Double nuit = Right("0000000000000" & nuit, 9) If Not IsNumeric(nuit) Then valida_nuit_Check_digit = False Else If nuit = 0 Then valida_nuit_Check_digit = False Else cd = CLng(Mid(nuit, 8, 1)) * 2 + _ CLng(Mid(nuit, 7, 1)) * 3 + _ CLng(Mid(nuit, 6, 1)) * 4 + _ CLng(Mid(nuit, 5, 1)) * 5 + _ CLng(Mid(nuit, 4, 1)) * 6 + _ CLng(Mid(nuit, 3, 1)) * 7 + _ CLng(Mid(nuit, 2, 1)) * 2 + _ CLng(Mid(nuit, 1, 1)) * 3 cd = 11 - (cd Mod 11) cd = IIf(cd = 11, 0, IIf(cd = 10, 1, cd)) valida_nuit_Check_digit = IIf(cd = CLng(Mid(nuit, 9, 1)), True, False) ‘se o cd fore igual a 11,é falso e não valida ,se for igual a 10 tambem nao valida, so valida se cd for igual a 9.,image se a divisão for igual a 2.isto seria 11-2 = cd 9 e valida. End If End If

PublicEnd Function valida_nuit_Check_digit(ByVal nuit As String) As Boolean
        Dim cd As Double
        nuit = Right("0000000000000" & nuit, 9)
        If Not IsNumeric(nuit) Then
            valida_nuit_Check_digit = False
        Else
            If nuit = 0 Then
                valida_nuit_Check_digit = False
            Else
                cd = CLng(Mid(nuit, 8, 1)) * 2 + _
                  CLng(Mid(nuit, 7, 1)) * 3 + _
                  CLng(Mid(nuit, 6, 1)) * 4 + _
                  CLng(Mid(nuit, 5, 1)) * 5 + _
                  CLng(Mid(nuit, 4, 1)) * 6 + _
                  CLng(Mid(nuit, 3, 1)) * 7 + _
                  CLng(Mid(nuit, 2, 1)) * 2 + _
                  CLng(Mid(nuit, 1, 1)) * 3
                cd = 11 - (cd Mod 11)
                cd = IIf(cd = 11, 0, IIf(cd = 10, 1, cd))
                valida_nuit_Check_digit = IIf(cd = CLng(Mid(nuit, 9, 1)), True, False) 

               'se o cd  fore igual a 11,é falso e não valida ,se for igual a 10  tambem naoAlguem valida,tem souma validaideia seeficaz cdde como forfazer igualisto? aMSAcces 9vba.,image se a divisão for igualaguardo a 2.isto seria 11-2 = cd 9colaboração ede validatodos.
       End If
        End If
       
    End Function
      

Alguém tem uma ideia eficaz de como fazer isto utilizando VBA?

¹ nuit : Registro único de identificação tributaria em Moçambique, contendo 9 dígitos

Como ficaria um aplicativo para validar um código nuit¹ atendendo as seguintes condições?

Se forem mais ou menos que nove(9) dígitos, retorne "nuit invalido"

Deve aceitar apenas números, se não forem números retorne "por favor

digite apenas números"

Tenho aqui o seguinte algoritmo:

Public Function valida_nuit_Check_digit(ByVal nuit As String) As Boolean
        Dim cd As Double
        nuit = Right("0000000000000" & nuit, 9)
        If Not IsNumeric(nuit) Then
            valida_nuit_Check_digit = False
        Else
            If nuit = 0 Then
                valida_nuit_Check_digit = False
            Else
                cd = CLng(Mid(nuit, 8, 1)) * 2 + _
                  CLng(Mid(nuit, 7, 1)) * 3 + _
                  CLng(Mid(nuit, 6, 1)) * 4 + _
                  CLng(Mid(nuit, 5, 1)) * 5 + _
                  CLng(Mid(nuit, 4, 1)) * 6 + _
                  CLng(Mid(nuit, 3, 1)) * 7 + _
                  CLng(Mid(nuit, 2, 1)) * 2 + _
                  CLng(Mid(nuit, 1, 1)) * 3
                cd = 11 - (cd Mod 11)
                cd = IIf(cd = 11, 0, IIf(cd = 10, 1, cd))
                valida_nuit_Check_digit = IIf(cd = CLng(Mid(nuit, 9, 1)), True, False) 

               'se o cd  fore igual a 11,é falso e não valida ,se for igual a 10  tambem nao valida, so valida se cd  for igual a 9.,image se a divisão for igual a 2.isto seria 11-2 = cd 9 e valida.
       End If
        End If
       
    End Function
      

Alguém tem uma ideia eficaz de como fazer isto utilizando VBA?

¹ nuit : Registro único de identificação tributaria em Moçambique, contendo 9 dígitos

Boa tarde a todos ! Tenho um um problema aqui no meu pais moçambique existe um numero único de identificação tributaria(nuit), o numero de identificação (nuit) leva 9 digitos. Como ficaria um aplicativo para validar o nuit atendendo as seguintes condições  ? Se forem mais(+) ou menos(-) que nove(9) digitos ,diga” nuit invalido.” Deve aceitar apenas números  ,se não forem números diga”por favor digite apenas números” Tenho aqui o algoritmo:

Public Function valida_nuit_Check_digit(ByVal nuit As String) As Boolean Dim cd As Double nuit = Right("0000000000000" & nuit, 9) If Not IsNumeric(nuit) Then valida_nuit_Check_digit = False Else If nuit = 0 Then valida_nuit_Check_digit = False Else cd = CLng(Mid(nuit, 8, 1)) * 2 + _ CLng(Mid(nuit, 7, 1)) * 3 + _ CLng(Mid(nuit, 6, 1)) * 4 + _ CLng(Mid(nuit, 5, 1)) * 5 + _ CLng(Mid(nuit, 4, 1)) * 6 + _ CLng(Mid(nuit, 3, 1)) * 7 + _ CLng(Mid(nuit, 2, 1)) * 2 + _ CLng(Mid(nuit, 1, 1)) * 3 cd = 11 - (cd Mod 11) cd = IIf(cd = 11, 0, IIf(cd = 10, 1, cd)) valida_nuit_Check_digit = IIf(cd = CLng(Mid(nuit, 9, 1)), True, False) ‘se o cd fore igual a 11,é falso e não valida ,se for igual a 10 tambem nao valida, so valida se cd for igual a 9.,image se a divisão for igual a 2.isto seria 11-2 = cd 9 e valida. End If End If

End Function
      Alguem tem uma ideia eficaz de como fazer isto? MSAcces vba.aguardo a colaboração de todos.
Carregando
removeu 7 caracteres do conteúdo; tags editadas
Fonte Link
user7752
  • 35
  • 1
  • 9
Carregando
adicionou 175 caracteres ao conteúdo
Fonte Link
user7752
  • 35
  • 1
  • 9
Carregando
formatação do código, clareza da pergunta
Fonte Link
jpmnteiro
  • 6,2mil
  • 3
  • 31
  • 41
Carregando
adicionou 308 caracteres ao conteúdo
Fonte Link
user7752
  • 35
  • 1
  • 9
Carregando
adicionou 1123 caracteres ao conteúdo
Fonte Link
user7752
  • 35
  • 1
  • 9
Carregando
removeu 69 caracteres do conteúdo
Fonte Link
user7752
  • 35
  • 1
  • 9
Carregando
adicionou 27 caracteres ao conteúdo
Fonte Link
user7752
  • 35
  • 1
  • 9
Carregando
pergunta
Fonte Link
jpmnteiro
  • 6,2mil
  • 3
  • 31
  • 41
Carregando
Titulo, clareza da pergunta
Fonte Link
jpmnteiro
  • 6,2mil
  • 3
  • 31
  • 41
Carregando
adicionou 6 caracteres ao conteúdo
Fonte Link
user7752
  • 35
  • 1
  • 9
Carregando
Fonte Link
user7752
  • 35
  • 1
  • 9
Carregando