日付変換星座関数、パラメータは日付型で、必要な友人がそれを参照できます。
次のようにコードをコピーします。function astro(birth)
astro=
if Birth= か、そうでない場合 isdate(birth) 次に、関数
Birthmonth=month(birth) を終了します : if Birthmonth<10 then Birthmonth=0 & Birthmonthbirthday
=day(birth) : if誕生日 <10 の場合、誕生日=0 & 誕生日
誕生=trim(誕生月 & 誕生日) '再編成月日、0903 type
rAstro=split(Aquarius*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 から ubound(rAstro)-2
rls2=split(rAstro(i_ls) & *,*)
ifbirth>=rls2(1)
に設定しましょう。) andbirth<=rls2(2) then
astro=rls2(0)
exit
if
next
end 関数