 |
| |
| 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