'1、代表户口地
'2、出身年份
'3、出身月份
'4、出生日
'5、奇数 男 ，偶数 女
'所以第一步先截取出这些数字 Mid(ID, 7, 4) //（身份证号，从第7位，至后4位）取1994
ID = "4107211994110111037465"
years = Mid(ID, 7, 4) '取第7位后4位 出生年份
mDate = Mid(ID, 11, 2) '取第11位后2位 出生月份
months = Mid(ID, 13, 2)
Select Case Mid(Trim(ID), 1, 2)
Case 11
MsgBox "你的户口所在地： 北京市"
Case 12
MsgBox "你的户口所在地： 天津市"
Case 13
MsgBox "你的户口所在地： 河北省"
Case 14
MsgBox "你的户口所在地： 山西省"
Case 15
MsgBox "你的户口所在地： 内蒙古自治区"
Case 21
MsgBox "你的户口所在地： 辽宁省"
Case 22
MsgBox "你的户口所在地： 吉林省"
Case 23
MsgBox "你的户口所在地： 黑龙江省"
Case 31
MsgBox "你的户口所在地： 上海市"
Case 32
MsgBox "你的户口所在地： 江苏省"
Case 33
MsgBox "你的户口所在地： 浙江省"
Case 34
MsgBox "你的户口所在地： 安徽省"
Case 35
MsgBox "你的户口所在地： 福建省"
Case 36
MsgBox "你的户口所在地： 江西省"
Case 37
MsgBox "你的户口所在地： 山东省"
Case 41
MsgBox "你的户口所在地： 河南省"
Case 42
MsgBox "你的户口所在地： 湖北省"
Case 43
MsgBox "你的户口所在地： 湖南省"
Case 44
MsgBox "你的户口所在地： 广东省"
Case 45
MsgBox "你的户口所在地： 广西壮族自治区"
Case 46
MsgBox "你的户口所在地： 海南省"
Case 50
MsgBox "你的户口所在地： 重庆市"
Case 51
MsgBox "你的户口所在地： 四川省"
Case 52
MsgBox "你的户口所在地： 贵州省"
Case 53
MsgBox "你的户口所在地： 云南省"
Case 54
MsgBox "你的户口所在地： 西藏自治区"
Case 61
MsgBox "你的户口所在地： 陕西省"
Case 62
MsgBox "你的户口所在地： 甘肃省"
Case 63
MsgBox "你的户口所在地： 青海省"
Case 64
MsgBox "你的户口所在地： 你喜欢回族自治区"
Case 65
MsgBox "你的户口所在地： 新疆维吾尔自治区"
Case 71
MsgBox "你的户口所在地： 台湾省"
Case 72
MsgBox "你的户口所在地： 香港特别行政区"
Case 73
MsgBox "你的户口所在地： 澳门特别行政区"
End Select
MsgBox "你的性别：" & IIf(Val(Mid(ID, 17, 1)) Mod 2 = 0, "女", "男")
MsgBox "你的生日：" & mDate & "-" & months
MsgBox " 你的年龄为：" & (year(Date) - years)
MsgBox " 你的属相：" & Mid("鼠牛虎兔龙蛇马羊猴鸡狗猪", (((year(Date) - years) Mod 12) + 11) Mod 12 + 1, 1)
MsgBox " 你的星座：" & Mid("摩羯水瓶双鱼白羊金牛双子巨蟹狮子处女天秤天蝎射手摩羯", (Month(mDate) + IIf((Day(mDate) - (19 + Int(Mid("102123444533", Month(mDate), 1)))) >= 0, 0, -1)) * 2 + 1, 2) & "座"
界面设计:
代码:
Dim AnimalSign(), Region(1 To 8, 0 To 7) As String
Private Sub Command1_Click()
Dim ID_No As String
ID_No = Text1.Text
Text2.Text = Region(Mid(ID_No, 1, 1), Mid(ID_No, 2, 1))
Text3.Text = IIf(Mid(ID_No, 17, 1) Mod 2, "男", "女")
Text4.Text = Mid(ID_No, 11, 2) + "-" + Mid(ID_No, 13, 2)
Text5.Text = AnimalSign(Mid(ID_No, 7, 4) Mod 12)
Text6.Text = Year(Now) - Mid(ID_No, 7, 4)
Select Case Val(Mid(ID_No, 11, 2)) & "月" & Val(Mid(ID_No, 13, 2)) & "日"
Case "12月22日" To "1月20日"
Text7.Text = "摩羯座"
Case "1月21日" To "2月19日"
Text7.Text = "水瓶座"
Case "2月20日" To "3月20日"
Text7.Text = "双鱼座"
Case "3月21日" To "4月20日"
Text7.Text = "白羊座"
Case "4月21日" To "5月21日"
Text7.Text = "金牛座"
Case "5月22日" To "6月21日"
Text7.Text = "双子座"
Case "6月22日" To "7月22日"
Text7.Text = "巨蟹座"
Case "7月23日" To "8月23日"
Text7.Text = "狮子座"
Case "8月24日" To "9月23日"
Text7.Text = "处女座"
Case "9月24日" To "10月23日"
Text7.Text = "天秤座"
Case "10月24日" To "11月22日"
Text7.Text = "天蝎座"
Case "11月23日" To "12月21日"
Text7.Text = "射手座"
End Select
End Sub
Private Sub Form_Load()
AnimalSign = Array("猴", "鸡", "狗", "猪", "鼠", "牛", "虎", "兔", "龙", "蛇", "马", "羊")
Region(1, 1) = "北京市": Region(1, 2) = "天津市": Region(1, 3) = "河北省"
Region(1, 4) = "山西省": Region(1, 5) = "内蒙古自治区"
Region(2, 1) = "辽宁省": Region(2, 2) = "吉林省": Region(2, 3) = "黑龙江省"
Region(3, 1) = "上海市": Region(3, 2) = "江苏省": Region(3, 3) = "浙江省"
Region(3, 4) = "安徽省": Region(3, 5) = "福建省": Region(3, 6) = "江西省"
Region(3, 7) = "山东省"
Region(4, 1) = "河南省": Region(4, 2) = "湖北省": Region(4, 3) = "湖南省"
Region(4, 4) = "广东省": Region(4, 5) = "广西壮族自治区": Region(4, 6) = "海南省"
Region(5, 0) = "重庆市": Region(5, 1) = "四川省": Region(5, 2) = "贵州省"
Region(5, 3) = "云南省": Region(5, 4) = "西藏自治区"
Region(6, 1) = "陕西省": Region(6, 2) = "甘肃省": Region(6, 3) = "青海省"
Region(6, 4) = "宁夏回族自治区": Region(6, 5) = "新疆维吾尔自治区"
Region(8, 1) = "香港特别行政区": Region(8, 2) = "澳门别行政区": Region(8, 3) = "台湾地区"
End Sub
运行界面:
