Constellation Configuration Code _ Constellation Configuration Evolution

Private subcommand 1_Click ()

Dim str 1 is a string, d 1 is a date, I is an integer, and xz.

Xz = Array ("Aries", 32 1, 4,20, "Taurus", 42 1, 5,20, "Gemini", 52 1, 6,21,_

Cancer, 6, 22, 7, 22, Leo, 7, 23, 8, 22, Virgo, 8, 23, 9, 22, _

Libra, 9, 23, 10, 22, "Scorpio", 10, 23,1,2 1, "Sagittarius",1.

"Capricorn", 1 2,22, 1 2,31,"Capricorn",1,19, "Aquarius", 65438

"Pisces", 2, 19, 3, 20)

str 1 = txt month & amp； “-”& amp； txtDay

If IsDate(str 1), then

d 1 = CDate(str 1)

For step 5 of i = 0 to lower bound (xz)

If Val(txtMonth)>= xz(i+1) and Val(txtDay)>= xz(i+2) _

And val (txtmonth) < = xz(i+3) and val (txtday) < = xz(i+4) Then

MsgBox "You inquired"&; str 1 & amp； "Constellation"&; Xz(i), vbOKOnly, Constellation Query.

Quit for ...

If ... it will be over.

Next, I

other

MsgBox "data you entered"&; str 1 & amp； "Not a date!" , vbOKOnly, "constellation query"

If ... it will be over.

End joint