ASP's Date conversion constellation function

' Date conversion constellation function, parameter is date type
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) ' Reforming month, 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= "Capricorn" ' This is a cross year, bad contrast, the first default
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 For
End If
Next
End Function