根據輸入的月份和日期，返回對應的星座編號，附星座對照表：
|
編號
|
起止日期
|
名稱
|
| 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
舉一反三，如果要求返回的是星座的名稱而不是編號呢？該怎么寫？讀者可以自己試一下。