Vb has written a program for measuring constellations.

MDate As Date in the form of string.

constellation

Constellation = Mid ("Capricorn Aquarius Pisces Aries Taurus Gemini Cancer Lion Virgo Libra Sagittarius Capricorn", (month (mdate)+IIF ((day (mdate)-(102/2344533)) (mid ("/kloc-0) "seat"

End function

The public function GetCNum(d As Date) in integer form.

Select case constellation (d)

Case "Aries"

n = 0

Case "Taurus"

n = 1

Case "Gemini"

n = 2

Case "cancer"

n = 3

Case "Leo"

n = 4

Case "Virgo"

n = 5

Case "Libra"

n = 6

Case "Scorpio"

n = 7

Case "Sagittarius"

n = 8

Case of Capricorn

n = 9

Case "Aquarius"

n = 10

Case "Pisces"

n = 1 1

End selection

GetCNum = n

End function

Private subtext1_ keypress (keyascii is an integer)

Mark data as a date

If KeyAscii = 13, then

d = Text 1。 text

Constellation = constellation (d)

Select case constellation (d)

Case "Aries"

S = "You are usually full of energy, but today you have become dull! If you don't want your relationship to last only three minutes, think about how to operate it. Cultivate your temperament once in a while and buy a good book! There is little momentum today, so you'd better keep a low profile and wait for your chance! "

Case "Taurus"

S = "You will meet many people. Remember to open your heart and don't be too bored! Open your eyes and see, there may be new objects! A relaxing party will cost you money. Work: I will have a meeting with many people today and have frequent interactions. "

Case "Gemini"

S = "Go all out and work hard! Want you to settle down, today is a good time! Usually spending money is very pleasant, and suddenly I want to do financial planning. I will make an important decision today, believe in myself! "

Case "cancer"

S = "Don't always stay at home, today is a good time to go out for a walk. Let's go for an outdoor outing with our dear! There will be a party that will cost you money. To enhance your competitiveness, you should get in touch with businesses you don't usually know. "

Case "Leo"

S = "Put away your sharp claws. Everything is negotiable today. The strong lion turned into a docile kitten and just wanted to snuggle up to the person he loved. I will buy some small gifts for my family! Someone asks you for help with official business, and you are ashamed to refuse. "

Case "Virgo"

S = "A good time to expand your life circle and establish new relationships. Single people will feel particularly lonely and look forward to love arrival. Discuss joint venture plans with friends? Work: properly handle the details of the cooperation case? "

Case "Libra"

S = "A day when you can get rid of prejudice and have objective and calm judgment. Stick to your own ideas and strengthen your attitude. There are signs of return on previous investments. Today, you make people feel mature and steady, and you can entrust them with important tasks! "

Case "Scorpio"

S = "You might as well go in and have a look at the shops you are interested in. Do not rule out blind date or friend introduction, you may meet a good candidate! Suitable for going out shopping and buying some autumn and winter supplies. People you meet for the first time deserve special attention, and you can learn a lot from them. "

Case "Sagittarius"

S = "Older friends will give you useful advice. Today is a good day to talk to your close friends. In order to please my lover, I do not hesitate to make faces and pretend to be fat. Pay attention to elders or older people and be more polite than usual. "

Case of Capricorn

S = "No matter how you feel, you should hide, smile more and get closer to others. Even close people should respect each other's self-esteem. It is also your good luck to help others sincerely. In order to deal with other people's affairs, my own affairs ended in one day. "

Case "Aquarius"

S = "This is a day when you can't do two things at once. If you take care of the east, you can't take care of the west. You should focus on one thing. You can't just look at people's appearance. Be careful when you break your glasses. As soon as you feel that something is wrong, you must take contingency measures and modify the plan. "If you are eager for success, it will only get more and more chaotic. In fact, if you do it slowly, it will be quite smooth to solve. "

Case "Pisces"

S = "Being intoxicated in a happy atmosphere will make you excited. Enthusiastic participation in relaxed parties invited by friends will lead to unexpected love development. The cost of eating, drinking and having fun is quite large, so we should pay attention to control it. Relaxing after work can relieve stress in one breath. "

End selection

Label 1。 strConstellation & ampvbCrLf & amp； s

If ... it will be over.

End joint

Private subtext2 _ keypress (keyascii is an integer)

Dim d 1 as the date, d2 as the date.

If KeyAscii = 13, then

arr = Array(Array(90，64，86，22，94，65，83，44，93，25，84，46)，_

Arrays (62,91,83,41,16,94,48,85,66,93,22,76), _

Array(83，42，9 1，67，79，20，94，63，80，39，96，24)，_

Array (26, 83, 63, 94, 36, 82, 24, 96, 45, 84, 59, 94), _

Array(92，22，87，43，89，63，84，30，93，63，8 1，44)，_

Array (66,93,19,86,57,96,44,82,25,94,39,83), _

Array (82, 47, 90, 17, 77, 46, 9 1, 64, 77, 2 1, 94, 64), _

Array (45,87,62,92,19,76,62,94,44,58,23,97), _

Array (9 1, 65, 82, 47, 93, 23, 76, 35, 94, 64, 77, 23), _

Arrays (20,96,44,78,55,97,27,82,66,96,46,78), _

Array (82,21,92,59,79,44,90,22,78,43,95,66))

d 1 = Text 1。 text

D2 = Text2. text

n 1 = GetCNum(d 1)

n2 = GetCNum(d2)

Label 2. Caption = arr(n 1)(n2)

If ... it will be over.

End joint