星座是按阳历(公历)日期划分的,首先你得知道你的阳历出生日期,然后对照下面的资料。
白羊座:3月21日~4月20日
金牛座:4月21日~5月21日
双子座:5月22日~6月21日
巨蟹座:6月22日~7月22日
狮子座:7月23日~8月23日
处女座:8月24日~9月23日
天秤座:9月24日~10月23日
天蝎座:10月24日~11月22日
射手座:11月23日~12月21日
魔羯座:12月22日~1月20日
水瓶座:1月21日~2月19日
双鱼座:2月20日~3月20日
'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) & "座"
是狮子座的,和我正好是一天的,我也是7月26号生的。但是新研究发现说星体这些年的位置有变化,按新划分咱们就是巨蟹座了。但我仍坚信这一天是狮子座的。另外,以前看过一篇文章,说生于某四个日期的人命特别好,其中就有阳历26日这一天,还有阴历初一,其他两个忘了。
7月26日生日书
性格分析
7月26日出生的人具有强烈的支配欲,不过,他们的权威很少来自于优越的物质或经济条件,而是立基于对社会真相的了解,而且不只了解,他们还把这种了解化为具体的行动。
当他们分析、评论某个事件时,通常很清楚自己在说些什么,因为他们的知识根植于实际的经验(通常包括深刻的理解该事件的背景)。那些出生于今天的秀异份子,甚至会被视为某方面的先知先觉者,会不断地散播一般人未知的讯息给愿意聆听的人。
出生在今天的人具有单向发展的习性,他们认为与其广泛地探索各种形式的不同经验,不如将精力集中于研究单一的重要领域。他们会把所知道的有关人生的一切知识全部放进这个特殊的领域里,以这个领域的观点加以诠释。许多在这一天出生的人,对家庭、社交圈或整个社会都有相当大的影响力,这是因为他们能够说出人们心里想说的话,甚至是勤俭、努力、节制等过时但可贵的社会价值的典型象征。然而太过于投入这种角色,对他们个人来说却有不利的影响,因为他们可能因此无暇倾听自己内心深处较感性的需求。
星座透露你的EQ指数--狮子座
EQ商数88-96,支配行星:太阳
在如帜热阳光的笼罩下,狮子们流露出一股自傲和自信,总是期待众人的喝采,促盼绽放出生命的光华,难怪演艺圈里有众多"狮子"们。
提到领导这回事,所有人都不能否认狮子可是天生好手,而且混身上下充满与生俱来的魅力,在一场宴会中,狮子会是个完美称职的女主人或男主人;会是个古道热肠不比慷慨的朋友,也会是热情如火的情人,难怪他们的EQ商数的上下均位居十二星座之首。
不过,狮子们偶而必须停止那蛮横不讲理的态度,尤其当你是只母狮子的话,很可能一下子就吓走了那个你处心积虑想要掳获你的男人。另外,狮子的金钱观念也令人摇头,这点,狮子们自己应该心知肚明吧!
-------
狮子座
-------
宝石:红宝石 幸运数字:5,9
幸运日:礼拜日 幸运地点:宽阔的处所
幸运色:金色、橘色
=============================================
狮子星座三区间
============================================
一0723-0731
个人星是太阳,大大的刺激身心方面的活动,太阳的双重影响,使你产生一种喜欢变化和改革的倾向,并表现出一种高贵热心的天性和领导他人的才能太阳将赐给你好运,只要你能除孕i能形成的不好倾向
二0801-0810
个人星是木星,它象徵神圣、智慧、幸运和忠心,影响智力、道德和同情的倾向高贵的个性,愉悦而荣耀的举止,是它好的影响木星注定的是一个浸满著挚爱、幸福而和谐的环境,它会赐予你好运和成功,助你抵销一些这星座不好的倾向
三0811-0822
个人星是火星,象徵战争,是神圣的精力中心,它的影响是一种有活力、有勇气和积极的倾向会大大的帮你克服一些狮子星座的弱点,助你成功没它的威力,将很难实现许多珍贵的野心太阳和火星的组合确是很幸运,火星是有力、侵略性,它驱使其子民去达成他们的野心
============================================
狮子星座的个别现象
============================================
1)0723
有野心,专制,有些粗率,很独立,不需假借多少外力便能成功在生意和财务上应避免骤下决定,能成功,并有来自上司的意外利益,有权威
2)0724
有迷人的人格和亲爱的性情,喜欢音乐和艺术,欣赏美丽高贵和美好的东西,有自我纵容的倾向,喜欢受纵容这只会增加你的困难,因为你得要面对现实,最适於艺术和职业生涯
3)0725
有上进心,值得信任,有很好的表白能力,天生是***才,精力充沛,能控制场面,而博得朋友和同事的尊敬,有错交朋友的危险,较受男性的欢迎,要小心虚假的女性
4)0726
诚实,廉洁强有力的意志,能抵销一些过份敏感的性情,喜欢回顾旧事,销受激恼就变得纳闷和失望,有害羞的举止,对最高命令能做聪明的研究多去旅行和追求自己喜受的东西,但别太浪费了很吸引异性
5)0727
大方,有礼貌,感恩而好客,亲友和生人都很愿意帮忙你,会有成功的旅行,能获致成功的极致,具先知般的灵感,在金融界能表现相当的技巧
6)0728
大胆的想像力和敏锐的脑力,不停地追求知识和感受,亲爱而热情,透过文学和音乐方面的活动,会有利得,你所选择的事业,会给你名誉和金钱的报偿
7)0729
具豁达的胸襟,慷慨,性情豪放自由,有优越的心智和许多创新的构想,易骤下决定,有在医学或哲学方面成名的能力
8)0730
坚定而固执,对自己有信心,有直觉力,生意方面的事轻易就能做到喜欢神秘,爱争论,增加你的知识,是智力发展的要因,并能增加安全感对家人亲爱而豁达,但是待别人,却可能有不体谅的倾向
9)0731
眼光远大,同情心广泛,对朋友很挚爱,却可能会备□失望的滋味要多靠直觉做事很难和家人和睦相处坦白而易受感动的天性,使你看来有些怪异
10)0801
热情,害羞而敏感,表现出为自己和同事赚钱的许多性向,会化烦恼为祝福
11)0802
乐观,有个需要节制的暴烈脾气,有错信别人所产生的失望,很不安静,经常在动,大体而言,会是幸运的,并能精通某些特定的领域
12)0803
精力充沛,勇敢,有些固执和急性,和家人有很强的连系,喜冒险,有神秘的气息,常赢得大众的醒目相看
13)0804
很优越的领悟力,有点过份忧心,能自长辈或继承方面得到利益,避免诈骗计划和投机企业你的优越感常带来许多敌人,避免身心过劳累
14)0805
喜欢学习,有艺术天份且勤学,做水路旅行时要小心,有很好的科学眼光,哲学方面会成功,是很优良的教师肉体上能吸引异性
15)0806
能自我激励并承担重任,感情受激恼时,会冲动,坚强的意志能克服一生中的许多困难,立刻就结交到许多朋友,因你具有很好的价值感
16)0807
智O好,对知识有饥渴之情,文学、艺术或音乐方面能得到成功豁达大度,愿帮助不幸的人,会给你带来奇妙的经验有人道的本能,带来名誉和报偿
17)0808
有同情心,果断而坚强,小心自己的脾气公正而有领悟力的脑子和紧张的神经系统,所以要避免心智上的过劳,而导致神经错乱爱好户外活动
18)0809
个性温柔有力,对目标有诚意,会助你成功有来自长亲、社交和财产方面的得利有生意本能,具娱乐他人的潜能,喜安适轻闲的生活
19)0810
能创新,大胆而意气轩昂,坚强,果断,善於表白,言辞俱佳,有固执急躁不安的倾向不尊敬传统,爱表现自己的急进观点,要避免强制朋友或同事,以免惹来敌视
20)0811
武断,自信,果决,热情,有时变得顽固和坚持,体质可能纤弱,要尽量放轻松点,经验会启迪你,有来自值得怀疑的朋友或同事方面的损失和麽烦
21)0812
骄傲,严肃,保守,容易光火要培养一个较为容忍的外貌比较悲观,要追求比较光明的地方,耐心地训练自己,养成信心,都会助你克服忧郁的倾向不适当的刺激和太多的争吵,对神经系毕钒□j的不良影响
22)0813
具慷慨奢侈的天性,有许多磨难和考验信心,容忍和耐心是保持健康和财务所必需不顺意时,会有来自异性的慰藉赚钱能力颇佳
23)0814
勤勉而有生意头脑,很好的分析能力,但会变得自私和武断,个人主义会导致同僚或生意伙伴的为难要抑制任意用钱的倾向
24)0815
具有相当的先知先见,会是计划的创始人,有许多有趣和浪漫的事,有一个快乐的人生,行为急进而有生气,随时提防由於不小心所导致的意外
25)0816
创新的脑力,好的领悟力,喜作对和恶作剧艺术和音乐天赋助你在娱乐界成功一生中,经常有来自亲威方面的麻烦,也有来自财产、文件和旅行的麻烦和蔼怜悯的天性和帮助亲威的愿望,会给你带来失望
26)0817
聪明,好批评,有直觉力,意志坚强,脾气猛烈,对文学和艺术有强烈兴趣,稍加努力,会得到有智识的人格要抑制好讽刺的倾向
27)0818
有冒险精神,探幽的欲望,喜欢有人陪伴,惊人的组织能力和控制别人的性向,随时准备表受职责,会得助於亲威,发展一种达到成功的实际方法
28)0819
上进心,个性很有趣,财政方面有突出的性向,应会有生意上的成功有来自亲威方面的困难,常有意外之财,有很好的执行能力避免匆促结婚
29)0820
很好的幽默感和分析能力,喜欢感受新的和非凡的构想,要抑制骄傲的倾向以及和比自己不幸的人交易时的专横可能发展一种烈士般的情操,最后导致一种退隐而孤单的生活
30)0821
能创新,勇敢,专横,应抑制过强的意志和专横地想自行其是的欲望明智地利用分析能力,在生意上便很可以成功学习和忍耐心,可制服急躁和精力过剩的脾气有法律和税赋方面的损失
31)0822
冲动而又有些急进,有聪明的脑筋和明显的直觉,此特质常在赫赫有名的成功人士身上发现应试著抑制太冲动和不安定的举止,否则对你会有致命的伤害很适於做政治家
欢迎分享,转载请注明来源:表白网
评论列表(0条)