安卓日期星座查询代码（查看星座日期）

本文目录一览：

• 1、如何通过日期查询星座，求android源码，哪位大神帮帮忙
• 2、dw中,通过日期查询星座代码怎么写哦
• 3、安卓简单的星座
• 4、VB 星座查询代码

如何通过日期查询星座，求android源码，哪位大神帮帮忙

加几个判断不就行了？星座都是有固定时间的。

白羊座：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日

dw中,通过日期查询星座代码怎么写哦

● 由于地轴的变动，太阳系的移动及各恒星本身的运动等原因，现在的黄道星座位置与两千年前的大不相同，其变动后的正确日期如下：

白羊座 更新日期04.19.～05.13 原来日期03.21.～04.20

金牛座 更新日期05.14.～06.20 原来日期04.21.～05.21

双子座 更新日期06.21.～07.19 原来日期05.22.～06.22

巨蟹座 更新日期07.20.～08.19 原来日期06.23.～07.23

狮子座 更新日期08.20.～09.15 原来日期07.24.～08.23

处女座 更新日期09.16.～10.30 原来日期08.24.～09.23

天秤座 更新日期10.31.～11.22 原来日期09.24.～10.23

天蝎座 更新日期11.23.～11.29 原来日期10.24.～11.22

蛇夫座 更新日期11.30.～12.17 （新增 ）

射手座 更新日期12.18.～01.18 原来日期11.23.～12.21

摩羯座 更新日期01.19.～02.15 原来日期12.22.～01.20

水瓶座 更新日期02.16.～03.11 原来日期01.21.～02.19

双鱼座 更新日期03.12.～04.18 原来日期02.20.～03.20

原本庞大的蝎子们要重新规整，只有从11月24到11月25这五天。

你是甚么星座？

你可知道由于你所属的星座，正位于太阳在天空必经的路线(黄道)之上(共有十二个星座)，

因此统称为黄道十二宫吗？而太阳在你出生时正位于你所属的星座上?

不过这一切已是二千多年前的事了! 经过二千多年，十二星座的日期与天象已不吻合。

由于地轴以二万六千年的周期摆动，黄道在天空的位置亦因此出现变动。

结果，每隔二千多年，太阳到达某一宫的时间便会推迟约一个月。

此外，黄道现在不只跨过十二个星座，还跨过第十三个星座—蛇夫座。

利用所附的图，你便可以找出现时太阳在你生日时所经过的星座与传统星座的。

天文学家早已指出，我们所熟知的十二宫星象图并不符合天体的实际现象，

两千多年前 占星学的法则奠基时，太阳"穿过"一连串星群所形成的星象图，和今天的所见已大不相同。

安卓简单的星座

简单的星座查询

1、引言

对于一个简单的星座查询的过程是为了熟悉时间控件Dateoicker的使用，并与java中初始化日历的Callendar类相结合来完成简单的星座的查询功能。

2、程序代码

对于实现星座的查询，其最为主要过程是如何实现日历的选择，首先看一下main.xml文件的布局

VB 星座查询代码

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) = xz(i + 3) And Val(txtDay) = xz(i + 4) Then

MsgBox "你查询的" str1 "的星座" xz(i), vbOKOnly, "星座查询"

Exit For

End If

Next i

Else

MsgBox "你输入的数据" str1 "不是日期！", vbOKOnly, "星座查询"

End If

End Sub

标签： 安卓日期星座查询代码