Fonction de constellation de conversion de date, les paramètres sont de type date, les amis dans le besoin peuvent s'y référer.
Copiez le code comme suit :function astro(birth)
astro=
ifbirth= ou non isdate(birth) Puis quittez la fonction
Birthmonth=month(birth) : si Birthmonth<10 alors Birthmonth=0 & Birthmonth
Birthday=day(birth) : if anniversaire <10 puis anniversaire = 0 et anniversaire
naissance = trim (mois de naissance et anniversaire) 'Réorganisation mois et jour, type 0903
rAstro=split(Verseau*0120*0219#Poissons*0220*0320#Bélier*0321*0420#Taureau*0421*0521#Gémeaux*0522*0621#Cancer *0622*0722#Lion*0723*0823#Vierge*0824*0923#Balance*0924*1023#Scorpion*1024*1122#Sagittaire*1123*1222#Capricorne*1222*0119#,#)
astro=Capricorne' C'est le réveillon du Nouvel An, il est donc difficile de comparer. Par défaut,
for i_ls=0 est ubound(rAstro)-2
rls2=split(rAstro(i_ls) & *,*)
ifbirth>=rls2(1). ) et naissance<=rls2(2) puis
astro=rls2(0)
sortie pour
fin si
fonction de fin
suivante