ฟังก์ชั่นกลุ่มดาวการแปลงวันที่ พารามิเตอร์คือประเภทวันที่ เพื่อนที่ต้องการสามารถอ้างอิงได้
คัดลอกโค้ดดังต่อไปนี้:ฟังก์ชั่น astro(birth)
astro=
if Birth= หรือไม่ isdate(birth) จากนั้นออกจากฟังก์ชัน
Birthmonth=month(birth) : if Birthmonth<10 แล้ว Birthmonth=0 & Birthmonth
birthday=day(birth) : if วันเกิด <10 แล้ววันเกิด=0 & วัน
เกิด เกิด=trim(เดือนเกิด & วันเกิด) 'ปรับเดือนและวัน 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' นี่คือวันส่งท้ายปีเก่า ดังนั้นจึงเปรียบเทียบได้ยาก ให้ใช้ค่าเริ่มต้นเป็น
for i_ls=0 เป็น ubound(rAstro)-2
rls2=split(rAstro(i_ls) & *,*)
ifbirth>=rls2(1 ) และการเกิด<=rls2(2) จากนั้น
astro=rls2(0)
ออกจาก
การสิ้นสุดหาก
ฟังก์ชันสิ้นสุด
ถัดไป