날짜 변환 별자리 기능, 매개변수는 날짜 유형이며 필요한 친구가 참조할 수 있습니다.
다음과 같이 코드를 복사합니다.function astro(birth)
astro=
ifbirth= 또는 isdate(birth)가 아니면 함수를 종료합니다
.birthmonth=month(birth) : if birthdaymonth<10 then birthdaymonth=0 & birthdaymonth
birthday=day(birth) : if birthday <10이면 birthday=0 & birthday
birthday=trim(생년월 & 생일) '재정리 월일, 0903 type
rAstro=split(물병자리*0120*0219#Pisces*0220*0320#Aries*0321*0420#Taurus*0421*0521#Gemini*0522*0621#Cancer *0622*0722#사자자리*0723*0823#처녀자리*0824*0923#천칭자리*0924*1023#전갈자리*1024*1122#궁수자리*1123*1222#염소자리*1222*0119#,#)
astro=Capricorn' 새해 전야이므로 비교하기 어렵습니다.
for i_ls=0 to ubound(rAstro)-2
rls2=split(rAstro(i_ls) & *,*)
ifbirth>=rls2(1 ) 및birth<=rls2(2) 그런 다음
astro=rls2(0)
다음
종료 기능인
경우 종료를
위해 종료합니다
.