function Zodiac(d)
arrZodiac1=array("Aquarius","Pisces","Aries","Taurus","Gemini","Cancer","Leo","Virgo","Libra","Scorpio","Sagittarius","Capricorn")
arrZodiac2=array("Water Bearer","Fish","Ram","Bull","Twins","Crab","Lion","Virgin","Balance","Scorpion","Archer","Goat")
arrZodiac3=array(21,20,21,21,22,22,23,24,23,24,23,22)
intZodiac=month(d)-1
if day(d)<arrZodiac3(intZodiac) then intZodiac=intZodiac-1
if intZodiac<0 then intZodiac=11
Zodiac=arrZodiac1(intZodiac)&" the "&arrZodiac2(intZodiac)
end function