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 dá 9.
Alguem tem uma ideia eficaz de como fazer isto?