asp 네,날짜 가 별자리 로 바 뀌 는 함수 입 니 다.

 
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) '    ,0903  
rAstro=split("   *0120*0219#   *0220*0320#   *0321*0420#   *0421*0521#   *0522*0621#   *0622*0722#   *0723*0823#   *0824*0923#   *0924*1023#   *1024*1122#   *1123*1222#   *1222*0119#","#") 
astro="   " '      ，    ，    
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