熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> .NET編程 >> 正文

asp的日期轉換星座函數

2013-11-13 10:37:17  來源: .NET編程 

  日期轉換星座函數參數是日期型
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
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.