复制代码代码如下所示：
函数Astro（出生）
天文=
如果出生= 或不IsDate（出生）然后退出功能
出生月=月（出生）：如果出生月< 10出生月=0出生月
生日=生日（出生）：如果生日10岁生日0生日
出生=装饰（出生月生日）的改革月，0903型
rastro =分裂（* 0120 * 0219 * 0220 * 0320 # #×0321×0420 #水瓶双鱼白羊金牛双子巨蟹* 0421 * 0521 * 0522 * 0621 # # * 0622 * 0722 * 0723 * 0823 # # * 0824 * 0923 * 0924 * 1023 # #狮子处女天秤天蝎射手摩羯座* 1024 * 1122 * 1123 * 1222 # #×1222×0119 #
擦蝎子这是交叉年，不是很好的对比，第一个默认值。
对于i_ls = 0 UBound（rastro）- 2
壳牌=分裂（rastro（i_ls）
如果出生> =壳牌（1）和出生<=壳牌（2）然后
天文=壳牌（0）
退出
最后如果
下一个
端功能