وظيفة كوكبة تحويل التاريخ، المعلمات هي نوع التاريخ، يمكن للأصدقاء المحتاجين الرجوع إليها.
انسخ الكود كما يلي:الدالة astro(birth)
astro=
ifbirth= or not isdate(birth) ثم اخرج من الدالة
Birthmonth=month(birth) : إذا Birthmonth<10 ثم Birthmonth=0 &birthmonthbirth
=day(birth) : if عيد ميلاد <10 ثم عيد ميلاد = 0 وعيد ميلاد
= تقليم (شهر الميلاد وعيد الميلاد) 'إعادة تنظيم الشهر واليوم، 0903 اكتب
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' هذه هي ليلة رأس السنة، لذلك من الصعب المقارنة، فلنفترض أن
i_ls=0 هو ubound(rAstro)-2
rls2=split(rAstro(i_ls) & *,*)
ifbirth>=rls2(1
) بشكل افتراضي.) والولادة<=rls2(2) ثم
astro=rls2(0)
الخروج
للنهاية إذا كانت
وظيفة النهاية
التالية