asp的日期轉換星座函數

　　日期轉換星座函數參數是日期型
function astro(birth)
astro=""
if birth="" or not isdate(birth) Then exit function
birthmonth=month(birth) : if birthmonth< then birthmonth="" & birthmonth
birthday=day(birth) : if birthday< then birthday="" & birthday
birth=trim(birthmonth & birthday) 重整月日型
rAstro=split("水瓶座**#雙魚座**#白羊座**#金牛座**#雙子座**#巨蟹座**#獅子座**#處女座**#天秤座**#天蠍座**#射手座**#摩蠍座**#""#")
astro="摩蠍座" 這個是跨年的不好對比先默認
for i_ls= to ubound(rAstro)
 rls=split(rAstro(i_ls) & "*""*")
 if birth>=rls() and birth<=rls() then
  astro=rls()
  exit for
 end if
next
end function
 

From:http://tw.wingwit.com/Article/program/net/201311/14139.html