CODE: [Copy to clipboard]
aDate=inputbox("请输入年份如:","生肖查询",2008)
If IsNumeric(aDate) Then
ShengXiao = Array("猴", "鸡", "狗", "猪", "鼠", "牛", "虎", "兔", "龙", "蛇", "马", "羊")
MsgBox ShengXiao(aDate Mod 12)
End If
CODE: [Copy to clipboard]
aDate=inputbox("请输入年份如:","生肖星座查询","1971-07-16")
If IsDate(aDate) Then
aYear = Year(aDate)
ShengXiao = Array("猴申","鸡酉","狗戌","猪亥","鼠子","牛丑","虎寅","兔卯","龙辰","蛇巳","马午","羊未")
MyShengXiao = ShengXiao(aYear Mod 12)
aMon=Month(aDate)
aDay=Day(aDate)
If Len(aMon)<2 then aMon="0"&aMon
If Len(aDay)<2 then aDay="0"&aDay
XingZuo=aMon&aDay
Else
MsgBox "你输入的年份有误!" & vbCrLf &"格式:2000/1/1或00-1-1" , 4096 ,"日期格式错误" :Wscript.Quit
End If
If XingZuo < 0120 then
MyXingZuo="魔羯座"
ElseIf XingZuo < 0219 then
MyXingZuo="水瓶座"
ElseIf XingZuo < 0321 then
MyXingZuo="双鱼座"
ElseIf XingZuo < 0420 then
MyXingZuo="白羊座"
ElseIf XingZuo < 0521 then
MyXingZuo="金牛座"
ElseIf XingZuo < 0622 then
MyXingZuo="双子座"
ElseIf XingZuo < 0723 then
MyXingZuo="巨蟹座"
ElseIf XingZuo < 0823 then
MyXingZuo="狮子座"
ElseIf XingZuo < 0923 then
MyXingZuo="处女座"
ElseIf XingZuo < 1024 then
MyXingZuo="天秤座"
ElseIf XingZuo < 1122 then
MyXingZuo="天蝎座"
ElseIf XingZuo < 1222 then
MyXingZuo="射手座"
ElseIf XingZuo > 1221 then
MyXingZuo="魔羯座"
End If
MsgBox "年龄:" & Year(Date)-aYear & vbCrLf & "生肖:" & MyShengXiao & vbCrLf & "星座:" & MyXingZuo ,4096
[