2. Año de nacimiento
3. Mes de nacimiento
4. Un número impar. ? Hombres, incluso mujeres
¿Entonces el primer paso es interceptar los números? ¿Medio(ID,7,4)? //(Número de DNI, del 7º a los últimos 4 dígitos) toma 1994.
ID = " 4107211994110111037465 "
Años = Medio(ID, 7, 4)' Obtiene el séptimo y cuarto dígito del nacimiento.
MDate = Mid(ID, 11, 2)' toma los dos meses de nacimiento después de la posición 11.
meses = Mid(ID, 13, 2)
Seleccione caso Mid(Trim(ID), 1, 2)
Caso 11
MsgBox "El registro de su hogar está en Beijing"
Caso 12
MsgBox "El registro de su hogar está en Tianjin"
Caso 13
MsgBox "Dónde está el registro de su hogar: Provincia de Hebei"
Caso 14
MsgBox "Dónde está el registro de su hogar: Provincia de Shanxi"
Caso 15
MsgBox "Su residencia registrada está en la Región Autónoma de Mongolia Interior"
Caso 21
MsgBox "Su residencia registrada está en la provincia de Liaoning"
Caso 22
MsgBox "Dónde está el registro de su hogar: Provincia de Jilin"
Caso 23
MsgBox "Dónde está el registro de su hogar: Provincia de Heilongjiang"
Caso 31
MsgBox "Dónde está el registro de su hogar: Shanghai"
Caso 32
MsgBox "Dónde está el registro de su hogar: Jiangsu Provincia"
Caso 33
MsgBox "La ubicación de registro de su hogar: Provincia de Zhejiang"
Caso 34
MsgBox "La ubicación de registro de su hogar : Provincia de Anhui"
p>Caso 35
MsgBox "¿Dónde está el registro de su hogar? Provincia de Fujian"
Caso 36
MsgBox "Dónde está el registro de su hogar: Provincia de Jiangxi" ”
Caso 37
MsgBox “Dónde está el registro de su hogar: Provincia de Shandong”
Caso 41
MsgBox "¿Dónde está el registro de su hogar? Dónde: Provincia de Henan"
Caso 42
MsgBox "¿Dónde está el registro de su hogar: Provincia de Hubei"
Caso 43
MsgBox" Ubicación de registro de su hogar: Provincia de Hunan"
Caso 44
MsgBox "Ubicación de registro de su hogar: Provincia de Guangdong"
Caso 45
MsgBox "La ubicación de registro de su hogar: Región Autónoma Zhuang de Guangxi"
Caso 46
MsgBox "La ubicación de registro de su hogar: Provincia de Hainan"
Caso 50
MsgBox "Dónde está el registro de su hogar: Chongqing"
Caso 51
MsgBox "Dónde está el registro de su hogar: Provincia de Sichuan"
Caso 52
MsgBox "Dónde está el registro de su hogar: Provincia de Guizhou"
Caso 53
MsgBox "¿Dónde está su registro de hogar: Provincia de Yunnan"
Caso 54
MsgBox "Dónde está su registro de hogar: Región Autónoma del Tíbet"
Caso 61
MsgBox "Dónde está el registro de su hogar: Provincia de Shaanxi"
Caso 62
MsgBox "Dónde está el registro de su hogar: Provincia de Gansu"
Caso 63
MsgBox "Ubicación del registro de su hogar: Provincia de Qinghai"
Caso 64
MsgBox “Dónde está el registro de su hogar: ¿Le gusta la Región Autónoma Hui? ”
Caso 65
MsgBox “La ubicación de registro de su hogar: Región Autónoma Uygur de Xinjiang”
Caso 71
MsgBox “El registro de su hogar Ubicación: Provincia de Taiwán"
Caso 72
MsgBox "Su lugar de residencia: Región Administrativa Especial de Hong Kong"
Caso 73
MsgBox "Usted Lugar de registro del hogar: Región Administrativa Especial de Macao"
Finalizar selección
MsgBox "Su género:";
2 = 0, "Mujer", "Hombre")
MsgBox "Tu cumpleaños: ";mFecha & "-" & Mes
MsgBox "Tu edad es: " ;(Año (Día)-Año)
MsgBox "Tu signo del zodíaco:"; Mid("Rata, Buey, Tigre, Conejo, Dragón, Serpiente, Caballo, Oveja, Mono, Gallo, Perro, Cerdo), ( (Año(Día)-Año)mod 12) 1)mod 12 1)
MsgBox "Tu signo del zodíaco: ";Mid("Capricornio Acuario Piscis Aries Tauro Géminis Cáncer Leo Virgo Libra Escorpio Sagitario Capricornio", (mes(mdate) IIF((day(mdate)-(19 int(mid(" 10212344533)), mes(.= 0, 0, -1)) * 2 1, 2) amp; "Asiento"