VALIDANDO CPF

CLEVERTON 11/03/2004 12:28:57
#14969
o que a há de errado com meu codigo

estou pedindo a função mid para me retornar um valor e ela está mer retornado outro


falem o que está de errado neste codigo

Private Sub cmd_cpf_Click()
Dim Casas(3) As String
Dim Digito As String
Casas(1) = Text2.Text
Casas(2) = Text2.Text
Casas(3) = Text2.Text
Digito = Text2.Text
'---------------------------------------------
If Len(Text2) 14 Then
MsgBox "Cpf Incorreto", vbInformation
Text2.Text = ""
Exit Sub
End If

If Not IsNumeric(Mid(Casas(1), 1, 3)) Then
MsgBox "Letras ou sinais não são válidos", vbInformation, "Casa Nº 1"
Text2.Text = ""
Text2.SetFocus
Exit Sub
End If
If Not IsNumeric(Mid(Casas(2), 5, 7)) Then
MsgBox "Letras ou sinais não são válidos", vbInformation, "Casa Nº 2"
Text2.Text = ""
Text2.SetFocus
Exit Sub
End If
If Not IsNumeric(Mid(Casas(3), 9, 11)) Then
MsgBox Mid(Casas(3), 9, 10)
MsgBox "Letras ou sinais não são válidos", vbInformation, "Casa Nº 3"
Text2.Text = ""
Text2.SetFocus
Exit Sub
End If
If Not IsNumeric(Mid(Digito, 13, 14)) Then
MsgBox "Digito inválido", vbInformation, "Digito"
Text2.Text = ""
Text2.SetFocus
Exit Sub
End If


End Sub
USUARIO.EXCLUIDOS 11/03/2004 14:32:00
#14994 Resposta escolhida
o erro está no jeito que vc está utilizando o Mid
o uso do Mid é assim: Mid(String,onde começa,tamanho que vc quer pegar)

então quando vc digita: Mid(Casas(3), 9, 11) ele pegará a partir da casa 9, 11 caracteres...
se vc quiser que ele pegue do caracter 9 até o 11 deverá fazer assim: Mid(Casas(3), 9, 3))

espero que seja isso sua dúvida
Falou
Tópico encerrado , respostas não são mais permitidas
Voltar