Por favor ayuda al jefe de VB
'1. Lugar representativo de residencia registrada
'2. Año de nacimiento
'3. . Fecha de nacimiento
'5, ¿número impar? Masculino, número par femenino
'¿Entonces el primer paso es interceptar estos números? / (Número de DNI, desde el 7.º dígito hasta los últimos 4 dígitos) 'Obtener el año de nacimiento desde el 7.º dígito hasta los últimos 4 dígitos' ID = "4107211994110111037465"
años = Mediados
mDate = Mid(ID, 11, 2) 'Obtiene el mes de nacimiento con los 2 dígitos después del 11.º dígito
meses = Mid(ID, 13, 2)
Seleccione Caso Mid(Trim(ID), 1, 2)
Caso 11
MsgBox "La ubicación de registro de su hogar: Beijing"
Caso 12
MsgBox "La ubicación de registro de su hogar: Ciudad de Tianjin"
Caso 13
MsgBox "La ubicación de registro de su hogar: Provincia de Hebei"
Caso 14
MsgBox "La ubicación de registro de su hogar: Provincia de Shanxi"
Caso 15
MsgBox "La ubicación de registro de su hogar: Región Autónoma de Mongolia Interior"
Caso 21
MsgBox "La ubicación de registro de su hogar: Provincia de Liaoning"
Caso 22
MsgBox "La ubicación de registro de su hogar: Provincia de Jilin"
Caso 23
MsgBox "La ubicación de registro de su hogar: Provincia de Heilongjiang"
Caso 31
MsgBox "La ubicación de registro de su hogar: Ciudad de Shanghai" p>
Caso 32
MsgBox "La ubicación de registro de su hogar: Provincia de Jiangsu"
Caso 33
MsgBox "La ubicación de registro de su hogar: Zhejiang Provincia"
Caso 34
MsgBox "La ubicación de registro de su hogar: Provincia de Anhui"
Caso 35
MsgBox "La ubicación de registro de su hogar : Provincia de Fujian"
Caso 36
MsgBox "Ubicación de registro de su hogar: Provincia de Jiangxi"
Caso 37
MsgBox "Su hogar ubicación de registro: Provincia de Shandong"
Caso 41
MsgBox "Su residencia registrada: Provincia de Henan"
Caso 42
MsgBox "Su Ubicación del registro del hogar: Provincia de Hubei"
Caso 43
MsgBox "Su ubicación del registro del hogar: Provincia de Hunan"
Caso 44
MsgBox " La ubicación del registro de su hogar: Provincia de Guangdong"
Caso 45
MsgBox "La ubicación del 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 "La ubicación de registro de su hogar: Ciudad de Chongqing"
Caso 51
MsgBox "La ubicación de registro de su hogar: Provincia de Sichuan"
Caso 52
MsgBox "La ubicación de registro de su hogar: Provincia de Guizhou"
Caso 53
MsgBox "La ubicación de registro de su hogar: Provincia de Yunnan"
Caso 54
MsgBox "La ubicación de registro de su hogar: Región Autónoma del Tíbet"
Caso 61
MsgBox "Ubicación de registro de su hogar: Provincia de Shaanxi"
Caso 62
>
MsgBox "La ubicación de registro de su hogar: Provincia de Gansu"
Caso 63
MsgBox "La ubicación de registro de su hogar: Provincia de Qinghai"
Caso 64
MsgBox "La ubicación de 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 "La ubicación de registro de su hogar: Provincia de Taiwán"
Caso 72
MsgBox "La ubicación de registro de su hogar: Hong Kong Región Administrativa Especial"
Caso 72
MsgBox "Ubicación de registro de su hogar: Región Administrativa Especial de Hong Kong"
p>Caso 73
MsgBox "Su residencia registrada: Región Administrativa Especial de Macao"
End Select
MsgBox "Su género:" & IIf (Val(Mid(ID, 17, 1)) Mod 2 = 0, "Mujer", "Hombre")
MsgBox "Tu cumpleaños:" & mFecha & "-" & meses
MsgBox "Tu edad es:" & (año( Fecha) - años)
MsgBox "Tu signo del zodíaco:" & Mid("Rata, Buey, Tigre, Conejo, Dragón, Serpiente, Caballo, Oveja, Mono, Pollo, Perro, Cerdo ", (( (año(Fecha) - años) Mod 12) + 11) Mod 12 + 1, 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((Día(mDate) - (19 + Int(Mid("102123444533", Mes(mDate), 1)))) >= 0, 0, -1)) * 2 + 1, 2) y "asiento"