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.650 visitas
5 respuestas
Mensajes realizados anteriormente (No estaban la última vez que entraste)VALIDACION DE CEDULA EN VISUAL BASIC
Pedro Luis (29/06/2011 10:24:00)
Mensajes realizados anteriormente (No estaban la última vez que entraste)VALIDACION DE CEDULA EN VISUAL BASIC
Fernando (30/06/2011 08:51:53)
Mensajes realizados anteriormente (No estaban la última vez que entraste)VALIDACION DE CEDULA EN VISUAL BASIC
Fernando (30/06/2011 08:47:16)
Mensajes realizados anteriormente (No estaban la última vez que entraste)VALIDACION DE CEDULA EN VISUAL BASIC
malu pin (06/12/2011 15:56:17)
Mensajes realizados anteriormente (No estaban la última vez que entraste)VALIDACION DE CEDULA EN VISUAL BASIC
EARE (07/07/2011 00:46:54)

VALIDACION DE CEDULA EN VISUAL BASIC

Publicado por MARIA CARBALLO (3 intervenciones) el 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.

VALIDACION DE CEDULA EN VISUAL BASIC

Publicado por Pedro Luis (128 intervenciones) el 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

VALIDACION DE CEDULA EN VISUAL BASIC

Publicado por Fernando (5 intervenciones) el 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.

VALIDACION DE CEDULA EN VISUAL BASIC

Publicado por Fernando (5 intervenciones) el 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

VALIDACION DE CEDULA EN VISUAL BASIC

Publicado por malu pin (1 intervención) el 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.

VALIDACION DE CEDULA EN VISUAL BASIC

Publicado por EARE (1 intervención) el 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