用VB语言在EXCEL中编写通过出生年月日判断星座 急求！

其实最简单的思路应该是将生日（比如在A1）中的年份信息去掉（全部统一为1900年，用函数date（0，month（A1），day（A1）），再与星座分割日（比如水瓶座1月20日为20，双鱼座2月19日为49等）做大小比对。以前网上很多一句语句查星座的都是这个思路。

但这个方法有个隐蔽的bug：闰年。闰年里面的星座分割日在3月份之后要加1。隐蔽的bug是大忌！如果别人调用了你的函数，却总是有无规律的错误发生，有时绞尽脑汁找不出问题的所在，往往就是因为你函数中这种隐蔽的bug了。

为了绕过闰年的bug，我编写了下面的函数，直接仿造人肉查询月、日的过程。

当然，里面有可以优化的地方，比如月份的数组由于维数和内容一样，可以直接优化掉；比如最后的if语句结构可以用一个iif语句代替。但这些都是细枝末节，为了更好地体现编程思路，就不做这些“匠心”的优化了。

Function HOROSCOPE(x As Date) As String

Dim XZ(12) As String

Dim Yue(12) As Long

Dim Ri(12) As Long

XZ(0) = "摩羯座"

XZ(1) = "水瓶座"

XZ(2) = "双鱼座"

XZ(3) = "白羊座"

XZ(4) = "金牛座"

XZ(5) = "双子座"

XZ(6) = "巨蟹座"

XZ(7) = "狮子座"

XZ(8) = "处女座"

XZ(9) = "天秤座"

XZ(10) = "天蝎座"

XZ(11) = "射手座"

XZ(12) = "摩羯座"

Yue(1) = 1

Yue(2) = 2

Yue(3) = 3

Yue(4) = 4

Yue(5) = 5

Yue(6) = 6

Yue(7) = 7

Yue(8) = 8

Yue(9) = 9

Yue(10) = 10

Yue(11) = 11

Yue(12) = 12

Ri(1) = 20

Ri(2) = 19

Ri(3) = 21

Ri(4) = 20

Ri(5) = 21

Ri(6) = 22

Ri(7) = 23

Ri(8) = 23

Ri(9) = 23

Ri(10) = 24

Ri(11) = 23

Ri(12) = 22

m = Month(x)

d = Day(x)

If d < Ri(Yue(m)) Then

HOROSCOPE = XZ(Yue(m) - 1)

Else

HOROSCOPE = XZ(Yue(m))

End If

End Function

双子座的出生日期是5月21日至6月21日。

双子座的人性格上的主要特征是思维善变，无拘无束，对外界包罗万象的事物的永无休止的好奇心双子座是机敏又不安的星座。双子座喜欢追求新鲜感，有点儿小聪明，就是耐心不够，往往做事都是三分钟热度，难以坚持。双子男表面很花心，其实深情，而双子女就喜欢求新和求变。

双子座拥有一颗强大的好奇心，喜欢不断去探索新鲜事物，并且勇于尝试。双子座有不断尝试的精神，双子座享受并追求不安分的生活。双子座不喜欢单调的生活，双子座追求的是一种不断改变的状态。

双子座女生的性格特点

双子座女生天性聪慧，从小就充满了好奇心，对于各类知识都颇有兴趣，并且会一一尝试，这是一个才华横溢、博学多识的群体。在工作上，双子座女生机智灵敏，懂得随机应变，做事干净利落，细而不乱。双子座女生是企划与管理部门不可多得的人才。

双子座女生心思细腻，对于任何一个环境的变动和一个细节的改变，双子座女生都能轻易觉察。双子座女生不喜欢平淡无味，希望生活的内容丰富多彩，千变万化。对于双子座女生来说，经常出去散步、郊游或旅行都是生活中不可缺少的一部分。

看一个人的运势，除了通过周易和五行来看，也可以通过生肖来观察。但是现在西方的星座也在命格计算学中占有地位。很多人通过星座来进行查询命运，得到答案。那么，你知道自己星座是什么吗？首先就得知道星座的出生日期是什么，比如说很多人就想知道双子座的出生日期，别着急，下面给出答案。

白羊座，金牛座，双子座出生日期

白羊座：3月21日~4月19日。第一宫的白羊座说话比较直冲，容易得罪人，但是内心大多温柔可爱，和他们相处时间越久，就会越喜欢他们。他们的内心就像棉花一样柔软。金牛座：4月20日~5月20日。十二星座中最爱财的星座，近乎执迷不悟。但是金牛座的人还是比较善于理财的，并不会因为太爱财而忘记财物的本质。是所有星座中最充满钱味的星座。双子座的出生日期是5月21日~6月20日。双子座的人非常足智多谋，行动也比较敏捷，善于与人交流沟通，这一点给他们提供了其他星座所没有的优势。

巨蟹座，狮子座，处女座出生日期

巨蟹座：6月21日~7月21。巨蟹座是个具有领导力的星座。善于忍耐也很有主见，与巨蟹座交朋友非常的省心省力，他们喜欢给朋友提供各种各样帮助，就当自己的事一样。狮子座：7月22日~8月22日。狮子座的人头脑清醒，但就是有点喜欢哗众取众，但那并不惹人讨厌，因为狮子座气质比较沉稳，容易让人有安全感，掩盖那层无伤大雅的浮躁。而且都很热心、慷慨。关键的时候，甚至连大义没亲都做得到。处女座：8月23日~9月22日。被议论最多的星座，也确实值得被议论，可能有点执着地追求一些他们眼里觉得需要追求的事。但旁人常常不能理解。不能说是吹毛求疵，很多处女座就因为这种性格取得了普通人想都不敢想的成功。有一说是诸葛亮也是处女座。

天枰座，天蝎座，射手座出生日期

天秤座：9月23日~10月22日。天秤座普遍优雅，爱好和平，有时候也显得有点纠结，犹豫不决。没啥可说的，就是是天cheng而不是天ping。天蝎座：10月23日~11月21日。天蝎座深谋远虑也很讲义气，做他们的朋友要小心，他们很会挖秘密，虽然不会说出去，但是还是让人望而生畏。射手座：11月22日~12月21日。公认的最花心星座，令人无话可说，被抛弃只好自认倒霉。但是他们确实也只是因为没有找到自己认定的那个唯一。希望这样的星座，还是能够得到爱的祝福。

很多人都知道有十二星座，但是一点也不知道自己星座或别的星座到底是怎么界定的。其实就是靠出生日期。以上就是关于白羊座，狮子座，双子座的出生日期等的总结。其中也有关于他们性格的分析，希望能够对你有所帮助。

测一测你的2023兔年运势和未来十年大运是好是坏？不知道如何挑选一个好日子？TA是你这一生对的人吗？2023年你会发大财吗？全方位解读你的事业天赋，扭转困局！点击在线咨询：http://wwwadxqdcom/xz/