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 dadá 9.
Alguem tem uma ideia eficaz de como fazer isto? excel vba.aguardo a colaboração de todos.