日期转换星座函数参数是日期型
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
