本文目录一览：
- 1、怎么样才能知道自己的星座呢
- 2、求你的计算生肖和星座的代码啊..谢谢!
- 3、生宵属相，星座是怎么计算的？知道一个日期2014月8月20日，用vba怎么算出生肖和星座？
- 4、用VB语言编写输入出生日期算出生肖与星座的程序
怎么样才能知道自己的星座呢
怎么样才能知道自己的星座呢
怎么样才能知道自己的星座呢，星座是来自西方的占星学，他们根据不同的时间，分成了12个星座。那么怎么样才能知道自己的星座呢，下面就是查询自己星座的方法，快来看看吧。
怎么样才能知道自己的星座呢1
白羊座: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月20日～2月18日，星座守护神:天神，星座属相︰风象星座，性格特征∶睿智。
双鱼座∶2月20日～3月20日，星座守护神:波塞冬，星座属相∶水象星座，性格特征︰很复杂。
怎么样才能知道自己的星座呢2
星座是按照阳历来判断的，而过年时按照农历也就是所谓的阴历来计算的两者并不相同。如果不知道自己是哪个月的，你可以在百度上输入日期，然后查询到你的出生日期，可以看到你的.出生农历是多少，然后根据农历去判断你的星座。
十二星座之白羊座白羊座的出生日期（公历）为3月21日~4月19日，别名牡羊座。白羊座是十二星座的第一个星座，因此白羊座与开始有着一定的关系。白羊座的守护星是火星。
十二星座之金牛座金牛座的出生日期（公历）为4月20日～5月20日金牛座，金牛座是在夏天之夜出现于银河西边的星座，而金星是金牛座的守护星。
十二星座之双子座双子座的出生日期（公历）为5月21日～6月21日，双子座以一对双胞胎为代表图案，暗示出他的双重个性。而双子座的守护星为水星。
十二星座之巨蟹座巨蟹座的出生日期（公历）为6月22日～7月22日，每年的6月22日左右到达巨蟹座，而该天的节气为夏至，所以也被称为“巨蟹宫第一点”。而巨蟹座的守护星为月亮。
十二星座之狮子座狮子座的出生日期（公历）为7月23日～8月22日，狮子座的守护星为太阳。
十二星座之处女座处女座的出生日期（公历）为8月23日～9月22日，处女座的守护星为水星，与双子座的守护星球一样。
十二星座之天秤座天秤座的出生日期（公历）为9月23日～10月23日，天秤座的守护星为金星，与金牛座的守护星球一样。而金星的本质为阴性，是天上金色的迷人天体，故此以爱神维纳斯命名。
十二星座之天蝎座天蝎座的出生日期（公历）为10月24日～11月22日，天蝎座的守护星为冥王星，而本质为阳性，但它的其性质却是阴性，是天上米黄色的天体，给人以神秘智慧的感觉。
十二星座之射手座射手座的出生日期（公历）为11月23日～12月21日，射手座的守护星为木星，而木星无论是在东方还是西方都被视为幸运的星座。
十二星座之摩羯座魔蝎座的出生日期（公历）为12月22日～1月19日，射手座的守护星为土星，而土星在西方的占星术中唯一一个有光环的天体，绕黄道一周约需要30年，代表人生的起落。
十二星座之水瓶座水瓶座的出生日期（公历）为1月20日～2月18日，水瓶座的守护星为天王星，是变化最少的一个星球，也有说是天王星与土星，或者单是土星。
十二星座之双鱼座双鱼座的出生日期（公历）为2月19日～3月20日，双鱼座的守护星为海王星。双鱼座是十二星座是最后一个星座，而白羊座是开始，一切单纯的开始。而双鱼座集合了前面十一个星座的复杂。
求你的计算生肖和星座的代码啊..谢谢!
你怎么知道我有啊，现在还要吗？
刚才找了一下，忘记是什么语言了，我先提供HTML+JavaScript的给你，要什么语言的你说，我再写给你
SCRIPT LANGUAGE="JavaScript"
!-- Begin
function signs() {
var start = 1901, birthyear = document.zodiac.year.value, date=document.zodiac.date.value, month=document.zodiac.month.selectedIndex;
with (document.zodiac.sign){
if (month == 1 date =20 || month == 2 date =18) {value = "水瓶座";}
if (month == 1 date 31) {value = "Huh?";}
if (month == 2 date =19 || month == 3 date =20) {value = "双鱼座";}
if (month == 2 date 29) {value = "Say what?";}
if (month == 3 date =21 || month == 4 date =19) {value = "白羊座";}
if (month == 3 date 31) {value = "OK. Whatever.";}
if (month == 4 date =20 || month == 5 date =20) {value = "金牛座";}
if (month == 4 date 30) {value = "I'm soooo sorry!";}
if (month == 5 date =21 || month == 6 date =21) {value = "双子座";}
if (month == 5 date 31) {value = "Umm ... no.";}
if (month == 6 date =22 || month == 7 date =22) {value = "巨蟹座";}
if (month == 6 date 30) {value = "Sorry.";}
if (month == 7 date =23 || month == 8 date =22) {value = "狮子座";}
if (month == 7 date 31) {value = "Excuse me?";}
if (month == 8 date =23 || month == 9 date =22) {value = "室女座";}
if (month == 8 date 31) {value = "Yeah. Right.";}
if (month == 9 date =23 || month == 10 date =22) {value = "天秤座";}
if (month == 9 date 30) {value = "Try Again.";}
if (month == 10 date =23 || month == 11 date =21) {value = "天蝎座";}
if (month == 10 date 31) {value = "Forget it!";}
if (month == 11 date =22 || month == 12 date =21) {value = "人马座";}
if (month == 11 date 30) {value = "Invalid Date";}
if (month == 12 date =22 || month == 1 date =19) {value = "摩羯座";}
if (month == 12 date 31) {value = "No way!";}
}
x = (start - birthyear) % 12
with (document.zodiac.csign){
if (x == 1 || x == -11) {value = "老鼠";}
if (x == 0) {value = "牛";}
if (x == 11 || x == -1) {value = "老虎";}
if (x == 10 || x == -2) {value = "兔子";}
if (x == 9 || x == -3) {value = "龙";}
if (x == 8 || x == -4) {value ="蛇";}
if (x == 7 || x == -5) {value = "马";}
if (x == 6 || x == -6) {value = "羊";}
if (x == 5 || x == -7) {value = "猴子";}
if (x == 4 || x == -8) {value = "鸡";}
if (x == 3 || x == -9) {value = "狗";}
if (x == 2 || x == -10) {value = "猪";}
}
}
// End --
/script
form name="zodiac"
center
table bgcolor="#eeaa00" border="2" bordercolor="#000000" rules="none" cellspacing="0" cellpadding="4"
trtdbi出生年份/i/b/td
tddiv align="right"input type="text" size="10" name="year" value="出生年份" onClick=value=""/div/td
td!--This empty field is just for appearance--/td
trtdbi出生月份/i/b/td
tddiv align="right"
select name="month"
option value="x"请选择一个月份/option
option value="1"一月/optionoption value="2"二月/optionoption value="3"三月/option
option value="4"四月/optionoption value="5"五月/optionoption value="6"六月/option
option value="7"七月/optionoption value="8"八月/optionoption value="9"九月/option
option value="10"十月/optionoption value="11"十一月/option
option value="12"十二月/option/select/div/td
td!--This empty field is just for appearance--/td/tr
trtdbi天/i/b/td
tddiv align="right"input type="text" name="date" value="天" size="3" onClick=value=""/td
tdinput type="button" value="计算一下" onClick="signs()"/div/td/tr
trtdbi星座:/i/b/td
tddiv align="right"input type="text" name="sign" size="12" value="" align="right"/div/td/tr
td!--This empty field is just for appearance--/td/tr
trtdbi属相:/i/b/td
tddiv align="right"input type="text" name="csign" size="12"/div/td
td!--This empty field is just for appearance--/td/tr
/table
/center
/form
生宵属相，星座是怎么计算的？知道一个日期2014月8月20日，用vba怎么算出生肖和星座？
Function sx(A As Date) As String
animalStr = "鼠牛虎兔龙蛇马羊猴鸡狗猪"
sx = Mid(animalStr, (Year(A) - 1900) Mod 12 + 1, 1)
End Function
Function xz(A As Date) As String
constellationName = "白羊座,金牛座,双子座,巨蟹座,狮子座,处女座,天秤座,天蝎座,射手座,摩羯座,水瓶座,双鱼座"
Index = 0
y = Year(A)
m = Month(A)
d = Day(A)
y = m * 100 + d
If (((y = 321) And (y = 419))) Then
Index = 0
ElseIf ((y = 420) And (y = 520)) Then
Index = 1
ElseIf ((y = 521) And (y = 620)) Then
Index = 2
ElseIf ((y = 621) And (y = 722)) Then
Index = 3
ElseIf ((y = 723) And (y = 822)) Then
Index = 4
ElseIf ((y = 823) And (y = 922)) Then
Index = 5
ElseIf ((y = 923) And (y = 1022)) Then
Index = 6
ElseIf ((y = 1023) And (y = 1121)) Then
Index = 7
ElseIf ((y = 1122) And (y = 1221)) Then
Index = 8
ElseIf ((y = 1222) Or (y = 119)) Then
Index = 9
ElseIf ((y = 120) And (y = 218)) Then
Index = 10
ElseIf ((y = 219) And (y = 320)) Then
Index = 11
Else:
Index = 0
End If
xz = Mid(constellationName, Index * 4 + 1, 3)
End Function
用VB语言编写输入出生日期算出生肖与星座的程序
'新建窗体form1
'添加控件 DTPicker1，Command1
Private Sub Command1_Click()
Dim aa As Integer
Dim bb As Integer
Dim cc As Integer
Dim dd_xingzuo As Integer
Dim dd_shengxiao As Integer
Dim leirong As String
bb = DTPicker1.Month
aa = DTPicker1.Day
cc = DTPicker1.Year
dd_xingzuo = (bb * 100 + aa)
dd_shengxiao = cc Mod 12
If dd_xingzuo 112 And dd_xingzuo 221 Then
leirong = "星座：水瓶座"
End If
If dd_xingzuo = 221 And dd_xingzuo = 321 Then
leirong = "星座：双鱼座"
End If
If dd_xingzuo = 322 And dd_xingzuo = 420 Then
leirong = "星座：白羊座"
End If
If dd_xingzuo = 421 And dd_xingzuo = 521 Then
leirong = "星座：金牛座"
End If
If dd_xingzuo = 522 And dd_xingzuo = 621 Then
leirong = "星座：双子座"
End If
If dd_xingzuo = 622 And dd_xingzuo = 721 Then
leirong = "星座：巨蟹座"
End If
If dd_xingzuo = 722 And dd_xingzuo = 821 Then
leirong = "星座：狮子坐"
End If
If dd_xingzuo = 822 And dd_xingzuo = 921 Then
leirong = "星座：处女座"
End If
If dd_xingzuo = 922 And dd_xingzuo = 1021 Then
leirong = "星座：天秤座"
End If
If dd_xingzuo = 1022 And dd_xingzuo = 1121 Then
leirong = "星座：天蝎座"
End If
If dd_xingzuo = 1122 And dd_xingzuo = 1221 Then
leirong = "星座：射手座"
End If
If dd_xingzuo = 1222 Or dd_xingzuo = 111 Then
leirong = "星座：摩羯座"
End If
Select Case dd_shengxiao
Case 0
leirong = leirong vbCrLf "身肖：猴"
Case 1
leirong = leirong vbCrLf "身肖：鸡"
Case 2
leirong = leirong vbCrLf "身肖：狗"
Case 3
leirong = leirong vbCrLf "身肖：猪"
Case 4
leirong = leirong vbCrLf "身肖：鼠"
Case 5
leirong = leirong vbCrLf "身肖：牛"
Case 6
leirong = leirong vbCrLf "身肖：虎"
Case 7
leirong = leirong vbCrLf "身肖：兔"
Case 8
leirong = leirong vbCrLf "身肖：龙"
Case 9
leirong = leirong vbCrLf "身肖：蛇"
Case 10
leirong = leirong vbCrLf "身肖：马"
Case 11
leirong = leirong vbCrLf "身肖：羊"
End Select
MsgBox leirong, vbInformation, "计算结果"
End Sub
标签： 星座属相查询代码
还木有评论哦，快来抢沙发吧~