根据输入的月份和日期，返回对应的星座编号，附星座对照表：
|
编号
|
起止日期
|
名称
|
| 1 |
12.22 - 1.19 |
魔羯 |
| 2 |
1.20 - 2.18 |
水瓶 |
| 3 |
2.19 - 3.20 |
双鱼 |
| 4 |
3.21 - 4.20 |
牡羊 |
| 5 |
4.21 - 5.20 |
金牛 |
| 6 |
5.21 - 6.21 |
双子 |
| 7 |
6.22 - 7.22 |
巨蟹 |
| 8 |
7.23 - 8.22 |
狮子 |
| 9 |
8.23 - 9.22 |
处女 |
| 10 |
9.23 - 10.22 |
天秤 |
| 11 |
10.23 - 11.21 |
天蝎 |
| 12 |
11.22 - 12.21 |
射手 |
'输入日期返回星座编号
Response.write getConstellation(11,23)
Function
getConstellation(iMonth, iDay)
Dim sDay, aDay sDay = "20,19,21,21,21,22,23,23,23,23,22,22" aDay = Split(sDay,",") If iDay < aDay(iMonth - 1) Then getConstellation = iMonth Else getConstellation
= iMonth + 1 If getConstellation = 13 Then getConstellation = 1 End If Erase aDay Set aDay = NothingEnd Function
举一反三，如果要求返回的是星座的名称而不是编号呢？该怎么写？读者可以自己试一下。