La Web del Programador: Comunidad de Programadores
http://www.lawebdelprogramador.com/foros/Visual_Basic/1274308-VALIDACION_DE_CEDULA_EN_VISUAL_BASIC.html
Mensajes realizados anteriormente (No estaban la última vez que entraste)VALIDACION DE CEDULA EN VISUAL BASIC
MARIA CARBALLO (29/06/2011 01:04:00)
7.458 visitas
5 respuestas
VALIDACION DE CEDULA EN VISUAL BASIC
Pedro Luis (29/06/2011 10:24:00)
VALIDACION DE CEDULA EN VISUAL BASIC
Fernando (30/06/2011 08:51:53)
VALIDACION DE CEDULA EN VISUAL BASIC
Fernando (30/06/2011 08:47:16)
VALIDACION DE CEDULA EN VISUAL BASIC
malu pin (06/12/2011 15:56:17)
VALIDACION DE CEDULA EN VISUAL BASIC
EARE (07/07/2011 00:46:54)
Me gusta: Está pregunta es útil y esta clara
0
No me gusta: Está pregunta no esta clara o no es útil
 
Asunto:

VALIDACION DE CEDULA EN VISUAL BASIC

Autor:MARIA CARBALLO (3 intervenciones)
Fecha:29/06/2011 01:04:00
HOLA QUISIERA QUE ME AYUDEN A VALIDAR EL NUMERO DE CEDULA. PARA VER SI ES CORRECTO O IN CORRECTO, DENTRO DE UN SOLO FORMULARIO; EN EL CUAL SE DEBERÁ MOSTRAR EL MENSAJE, NUMERO ES CORRECTO O INCORRECTO. EL TUTOR EXPLICO QUE TODO NUMERO DE CEDULA EMPIEZA CON 01 HASTA EL 24. PERO NUNCA DEBE EMPEZAR CON 00 O CON 38 BUENO ESO ES CON RESPECTO A LOS NUMEROS DE LAS PROVINCIAS DE ECUADOR. GRACIAS POR SU COLABORACION.
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

VALIDACION DE CEDULA EN VISUAL BASIC

Autor:Pedro Luis (128 intervenciones)
Fecha:29/06/2011 10:24:00
Creo que debe ser más o menos así
if mid(numero,1,2)>"00" and mid(numero,1,2)<"25" then
msgbox(" El número introducido es bueno ")
else
msgbox(" El numero introducido no es correcto "
endif
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

VALIDACION DE CEDULA EN VISUAL BASIC

Autor:Fernando (5 intervenciones)
Fecha:30/06/2011 08:51:53
No tengo Visual 6 instalado ni me acuerdo tanto, preo creo que no es posible hace un mid de una variable numerica.
Y si para vos numero es texto, no se puden hacer comparaciones de valores numericos de un texto con otro >0
Ni compraciones numericas de 2 textos >"00"
Pero como te dije no tengo el Visual 6 instalado ni me acuerdo tanto, pero revisalo por las dudas, o mira lo que puse abajo.
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

VALIDACION DE CEDULA EN VISUAL BASIC

Autor:Fernando (5 intervenciones)
Fecha:30/06/2011 08:47:16
Primero me gustaria saber que tipo de variable usas para introducir el numero de cedula.
Me imagino que utilizas una variable de tipo string
Si es asi lo primero que tenes que hacer es :

dim DosDigitos as string
Dosdigitos = mid(numero,1,2)

despues pasar eso a valor numerico para poder hacer la comparacion

dim ValorDosDigitos as integer
ValorDosDigitos = Val(DosDigitos)

Ahora si podes hacer la comparacion

if dosdigitos>0 and dosdigitos<25 then
msgbox "numero correcto"
else
msgbox"numero incorrecto"
endif

Bueno ahora que ya entendistes esto, te lo voy a simplificar en menos lineas

If val(mid(txtcedula.text,1,2))>0 and val(mid(txtcedula.text,1,2))<25 then
msgbox"Numero Correcto"
else
msgbox"Numero Incorrecto"
endif

Bueno espero que te sirvan las 2 opciones que te di, la primera mas que nada la puse para que entiendas como es la logica de lo que deberias de realizar.
Suerte
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

VALIDACION DE CEDULA EN VISUAL BASIC

Autor:malu pin (1 intervención)
Fecha:06/12/2011 15:56:17
hola y , dime por favor que comando devo utilizar para hacer esta validacion y si lo puedes enviar en grafico te lo agradecere mas ,y Dios te de vas sabiduria para que nos ayudes mas.
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

VALIDACION DE CEDULA EN VISUAL BASIC

Autor:EARE (1 intervención)
Fecha:07/07/2011 00:46:54
APARTE DE LO QUE DICES TIENES QUE SEGUIR UN PROCESO MATEMATICO CON TODOS LOS DIGITOS EXEPTO EL ULTIMO QUE ES DE COMPROBACION