CopyCodeThe Code is as follows: function Astro (birth)
Astro = ""
If birth = "" or not isdate (birth) Then exit function
Birthmonth = month (birth): If birthmonth <10 then birthmonth = "0" & birthmonth
Birthday = Day (birth): If birthday <10 then Birthday = "0" & birthday
Birth = trim (birthmonth & birthday) 'indicates the reorganization of the month and day, type 0903
Rastro = Split ("Aquarius * 0120*0219 # Pisces * 0220*0320 # Aries * 0321*0420 # Taurus * 0421*0521 # Gemini * 0522*0621 # cancer * 0622*0722 # Leo * 0723*0823 # Virgo * 0824*0923 # Libra * 0924*1023 # Scorpio * 1024*1122 # Sagittarius * 1123*1222 # Capricorn * 1222*0119 #", "#")
Astro = "" 'This is a cross-year Plan. It is difficult to compare it. The default value is first.
For I _ls = 0 to ubound (rastro)-2
Rls2 = Split (rastro (I _ls )&"*","*")
If birth> = rls2 (1) and birth <= rls2 (2) then
Astro = rls2 (0)
Exit
End if
Next
End Function
