12星座与幸运石 12星座与幸运石 白羊座Aries(3月21日-4月20日) 正面:勇敢、独立。负面:固执、冲动。 幸运石:红发晶、红玛瑙 护身符:白水晶、月光石、孔雀石 金牛座Taurus(4月21日-5月21日) 正面:勤劳、忠诚。负面:固执、占有欲强。 幸运石:紫晶、紫龙晶、紫黄晶 护身符:绿碧榴、石榴石、舒俱徕石 双子座Gemini(5月22日-6月21日) 正面:聪明、适应力强。负面:善变。 幸运石:黄水晶、黄玉、蜜蜡 护身符:黑陨石、黑曜石 巨蟹座Cancer(6月22日-7月22日) 正面:善解人意。负面:情绪化、消极。 幸运石:红纹石、粉晶、粉澳阀 护身符:木变石、金发晶、彩发晶 狮子座Leo(7月23日-8月23日) 正面:高贵、自信。负面:任性、专横。 幸运石:黄水晶、金发晶、金珀 护身符:拉长石、茶晶、黑陨石 处女座Virgo(8月24日-9月23日) 正面:聪明、谨慎。负面:挑剔、紧张。 幸运石:白水晶、银发晶、砗磲 护身符:海蓝宝、紫水晶、黑曜石 天平座Libra(9月24日-10月23日) 正面:公正、善社交。负面:优柔寡断。 幸运石:绿幽灵、绿发晶、绿松石 护身符:金发晶、黑发晶、红发晶 天蝎座Scorpio(10月24日-11月22日) 正面:有智谋、坚强。负面:不善交际。 幸运石:黑曜石、黑玛瑙、陨石 护身符:碧玺、红发晶 射手座Sagittarius(11月23日-12月21日) 正面:勇敢、诚实。负面:冲动、随性。 幸运石:绿碧榴、孔雀石、月光石 护身符:黑曜石、陨石、黑玛瑙 魔羯座Capricorn(12月22日-1月20日) 正面:谨慎、坚持。负面:固执、专断。 幸运石:茶晶、铜发晶、血珀 护身符:红玉髓、红发晶 水瓶座Aquariusl(1月21日-2月19日) 正面:忠诚、才智。负面:害羞、情绪化。 幸运石:陨石、绿松石、紫水晶 护身符:碧玺、黑曜石、玛瑙 双鱼座Pisces(2月20日-3月20日) 正面:想象丰富。负面:软弱、消极。 幸运石:青金石、蓝玉髓、海蓝宝 护身符:陨石、发晶
【属虎】:蓝宝石、黑晶石、黑碧玺、黑玉、松石。
Private Sub Command1_Click() Dim str1 As String, d1 As Date, i As Integer, xz xz = Array("白羊座", 3, 21, 4, 20, "金牛座", 4, 21, 5, 20, "双子座", 5, 21, 6, 21, _ "巨蟹座", 6, 22, 7, 22, "狮子座", 7, 23, 8, 22, "处女座", 8, 23, 9, 22, _ "天秤座", 9, 23, 10, 22, "天蝎座", 10, 23, 11, 21, "射手座", 11, 22, 12, 21, _ "摩羯座", 12, 22, 12, 31, "摩羯座", 1, 1, 1, 19, "水瓶座", 1, 20, 2, 18, _ "双鱼座", 2, 19, 3, 20) str1 = txtMonth & "-" & txtDay If IsDate(str1) Then 'd1 = CDate(str1) For i = 0 To UBound(xz) Step 5 If Val(txtMonth) >= xz(i + 1) And Val(txtDay) >= xz(i + 2) _ And Val(txtMonth) Ni查询的" & str1 & "的星座" & xz(i), vbOKOnly, "星座查询" Exit For End If Next i Else MsgBox "你输入的数据" & str1 & "不是日期!", vbOKOnly, "星座查询" End If End Sub
Private Sub Command1_Click() Dim str1 As String, d1 As Date, i As Integer, xz xz = Array("白羊座", 3, 21, 4, 20, "金牛座", 4, 21, 5, 20, "双子座", 5, 21, 6, 21, _ "巨蟹座", 6, 22, 7, 22, "狮子座", 7, 23, 8, 22, "处女座", 8, 23, 9, 22, _ "天秤座", 9, 23, 10, 22, "天蝎座", 10, 23, 11, 21, "射手座", 11, 22, 12, 21, _ "摩羯座", 12, 22, 12, 31, "摩羯座", 1, 1, 1, 19, "水瓶座", 1, 20, 2, 18, _ "双鱼座", 2, 19, 3, 20) str1 = txtMonth & "-" & txtDay If IsDate(str1) Then 'd1 = CDate(str1) For i = 0 To UBound(xz) Step 5 If Val(txtMonth) >= xz(i + 1) And Val(txtDay) >= xz(i + 2) _ And Val(txtMonth) Ni查询的" & str1 & "的星座" & xz(i), vbOKOnly, "星座查询" Exit For End If Next i Else MsgBox "你输入的数据" & str1 & "不是日期!", vbOKOnly, "星座查询" End If End Sub
年份 水瓶 双鱼 白羊 金牛 双子 巨蟹 狮子 处女 天秤 天蝎 射手 摩羯 1950 1.20 22:59 2.19 13:17 3.21 12:35 4.20 23:59 5.21 23:27 6.22 7:36 7.23 18:29 8.24 1:23 9.23 22:43 10.24 7:44 11.23 5:02 12.22 18:13 1951 1.21 4:52 2.19 19:09 3.21 18:25 4.21 5:48 5.22 5:15 6.22 13:24 7.24 0:20 8.24 7:16 9.24 4:36 10.24 13:36 11.23 10:51 12.23 0:00 1952 1.21 10:38 2.20 0:56 3.21 0:13 4.20 11:36 5.21 11:03 6.21 19:12 7.23 6:07 8.23 13:02 9.23 10:23 10.23 19:22 11.22 16:35 12.22 5:43 1953 1.20 16:21 2.19 6:41 3.21 6:00 4.20 17:25 5.21 16:52 6.22 1:00 7.23 11:51 8.23 18:45 9.23 16:05 10.24 1:06 11.22 22:21 12.22 11:31 1954 1.20 22:11 2.19 12:32 3.21 11:53 4.20 23:19 5.21 22:47 6.22 6:54 7.23 17:45 8.24 0:36 9.23 21:55 10.24 6:56 11.23 4:14 12.22 17:24 1955 1.21 4:02 2.19 18:18 3.21 17:35 4.21 4:57 5.22 4:24 6.22 12:31 7.23 23:24 8.24 6:18 9.24 3:40 10.24 12:43 11.23 10:00 12.22 23:11 1956 1.21 9:48 2.20 0:04 3.20 23:20 4.20 10:43 5.21 10:12 6.21 18:24 7.23 5:19 8.23 12:14 9.23 9:35 10.23 18:34 11.22 15:49 12.22 4:59 1957 1.20 15:39 2.19 5:58 3.21 5:16 4.20 16:41 5.21 16:10 6.22 0:20 7.23 11:14 8.23 18:07 9.23 15:26 10.24 0:24 11.22 21:39 12.22 10:48 1958 1.20 21:28 2.19 11:48 3.21 11:05 4.20 22:27 5.21 21:51 6.22 5:57 7.23 16:50 8.23 23:45 9.23 21:08 10.24 6:10 11.23 3:29 12.22 16:39 1959 1.21 3:18 2.19 17:37 3.21 16:54 4.21 4:16 5.22 3:42 6.22 11:50 7.23 22:45 8.24 5:43 9.2......余下全文>>
阳历 名称 别名 日期 英文名 守护星 牡羊座(白羊座) 3月21日~4月20日 Aries 火星(象征能量与精力) 金牛座 4月21日~5月21日 Taurus 金星(象征爱与美的结合) 双子座 5月22日~6月21日 Gemini 水星(象征心灵的交流) 巨蟹座 6月22日~7月22日 Cancer 月亮(象征情绪和感觉) 狮子座 7月23日~8月23日 Leo 太阳(象征热情和活力 ) 处女座(室女座) 8月24日~9月23日 Virgo 水星(象征知性和工作) 天秤座 9月24日~10月23日 Libra 金星(象征爱与美的结合) 天蝎座 10月24日~11月22日 Scorpio 冥王星(象征着转变) 射手座(人马座) 11月23日~12月21日 Sagittarius 木星(象征智能及变量) 摩羯座 12月22日~1月20日 Capricorn 土星 水瓶座(宝瓶座) 1月21日~2月19日 Aquarius 天王星 双鱼座 2月20日~3月20日 Pisces 海王星(象征着高超的幻想力) 火象星座:牡羊座、狮子座、射手座 水象星座:巨蟹座、天蝎座、双鱼座 土象星座:金牛座、处女座、摩羯座 风象星座:双子座、天秤座、水瓶座 基本型星座:白羊座、巨蟹座、天秤座、摩羯座 固定型星座:金牛座、狮子座、天蝎座、水瓶座 变动型星座:双子座、处女座、射手座、双鱼座 生日星座源于占星学,它试图利用人的出生地、出生时间和天体的位置来解释人的性格和命运。 出生月份与太阳星座的对应如下,由于天体运行的轨道与公历历法有差异,不同年份会前后相差1-2天,与中国农历的二十四节气各个“节”之间的距离吻合,节气时间的计算准确至分钟(并非子时开始),亦是星座的界线,每年均有差异。 星座名称 黄道带时间(一般认知) 恒星时间 太阳所在星座时间 对应的农历节气 白羊座 03月21日-04月19日 04月15日-05月15日 04月19日-05月13日 春分-谷雨前一天 金牛座 04月20日-05月20日 05月16日-06月15日 05月14日-06月19日 谷雨-小满前一天 双子座 05月21日-06月21日 06月16日-07月15日 06月20日-07月20日 小满-夏至前一天 巨蟹座 06月22日-07月22日 07月16日-08月15日 07月21日-08月09日 夏至-大暑前一天 狮子座 07月23日-08月22日 08月16日-09月15日 08月10日-09月15日 大暑-处暑前一天 处女座 08月23日-09月23日 09月16日-10月15日 09月16日-10月30日 处暑-秋分前一天 天秤座 09月24日-10月23日 10月16日-11月15日 10月31日-11月22日 秋分-霜降前一天 天蝎座 10月24日-11月21日 11月16日-12月15日 11月23日-11月29日 霜降-小雪前一天 蛇夫座 - - 11月30日-12月17日 - 射手座 11月22日-12月21日 12月16日-01月14日 12月18日-01月18日 小雪-冬至前一天 摩羯座 12月22日-01月19日 01月15日-02月14日 01月19日-02月15日 冬至-大寒前一天 水瓶座 01月20日-02月18日 02月15日-03月14日 02月16日-03月11日 大寒-雨水前一天 双鱼座 02月19日-03月20日 03月15日-04月14日 03月12日-04月1......余下全文>>
星座按阳历计算。你的生日对应公历:1981年3月31日,星期二,白丁座 白羊座:出生于阳历3.21—4.20
公农历转换后您的生日为1968年7月23日。 星座:狮子座(7月23日~8月23日)
您好,很高兴帮您解答。星座是看您阳历的出生月份和日期,这里给你一张对照表,你可以根据这个表来确定自己的星座。 白羊座 03月21日-04月19日 04月15日-05月15日 04月19日-05月13日 春分-谷雨前一天 金牛座 04月20日-05月20日 05月16日-06月15日 05月14日-06月19日 谷雨-小满前一天 双子座 05月21日-06月21日 06月16日-07月15日 06月20日-07月20日 小满-夏至前一天 巨蟹座 06月22日-07月22日 07月16日-08月15日 07月21日-08月09日 夏至-大暑前一天 狮子座 07月23日-08月22日 08月16日-09月15日 08月10日-09月15日 大暑-处暑前一天 处女座 08月23日-09月23日 09月16日-10月15日 09月16日-10月30日 处暑-秋分前一天 天秤座 09月24日-10月23日 10月16日-11月15日 10月31日-11月22日 秋分-霜降前一天 天蝎座 10月24日-11月21日 11月16日-12月15日 11月23日-11月29日 霜降-小雪前一天 射手座 11月22日-12月21日 12月16日-01月14日 12月18日-01月18日 小雪-冬至前一天 摩羯座 12月22日-01月19日 01月15日-02月14日 01月19日-02月15日 冬至-大寒前一天 水瓶座 01月20日-02月18日 02月15日-03月14日 02月16日-03月11日 大寒-雨水前一天 双鱼座 02月19日-03月20日 03月15日-04月14日 03月12日-04月18日 雨水-春分前一天
金牛座,金牛座(4.20-5.20)金牛座是很保守的星座,喜欢稳定,不爱变动。