'日期转换星座函数,参数是日期型 function astro(birth) astro= if birth= or not isdate(birth) Then exit function birthmonth=month(birth) : if birthmonth10 then birthmonth=0 birthmonth birthday=day(birth) : if bir,asp的日期转换星座函数