Datumsumwandlungskonstellationsfunktion, die Parameter sind Datumstypen, Freunde in Not können sich darauf beziehen.
Kopieren Sie den Code wie folgt:Funktion astro(Geburt)
astro=
wenn Geburt= oder nicht isdate(Geburt) Dann beenden Sie die Funktion
Geburtsmonat=Monat(Geburt): Wenn Geburtsmonat<10, dann Geburtsmonat=0 & Geburtsmonat
Geburtstag=Tag(Geburt): Wenn Geburtstag <10, dann Geburtstag=0 und Geburtstag
Geburt=Trim(Geburtsmonat und Geburtstag) 'Neuorganisation von Monat und Tag, 0903 Typ
rAstro=split(Wassermann*0120*0219#Fische*0220*0320#Widder*0321*0420#Stier*0421*0521#Zwillinge*0522*0621#Krebs *0622*0722#Löwe*0723*0823#Jungfrau*0824*0923#Waage*0924*1023#Skorpion*1024*1122#Schütze*1123*1222#Steinbock*1222*0119#,#)
astro=
Capricorn' Dies ist Silvester, daher ist es schwer
zu
vergleichen ) und Geburt<=rls2(2) dann
astro=rls2(0)
Exit für
End-If-
Next
-End-Funktion